From a72f9139096103fc123957834a155e53fe370bf4 Mon Sep 17 00:00:00 2001
From: Leo Orpilla III <leoorpilla3@gmail.com>
Date: Sun, 11 Oct 2020 15:24:44 +1000
Subject: [PATCH] Fix help exit

---
 up-top/src/Event.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/up-top/src/Event.hs b/up-top/src/Event.hs
index 3606d30..90cae5a 100644
--- a/up-top/src/Event.hs
+++ b/up-top/src/Event.hs
@@ -62,10 +62,7 @@ handleEvent s (VtyEvent e) =
 
     HelpView -> 
       case e of
-        EvKey KEsc        [] -> continue (setMainScreen s)
-        EvKey (KChar 'q') [] -> continue (setMainScreen s)
-        EvKey (KChar '1') [] -> continue (setMainScreen s)
-        _ -> continue s
+        _ -> continue (setMainScreen s)
 handleEvent s (AppEvent (UAccounts as)) =
   continue (s & accounts .~ L.list AccountList (Vec.fromList as) 1
               & transactions %~ H.union transactions')