Fix help exit

ldgrp · Oct 11, 2020 · a72f913 · a72f913
1 parent 8a80a23
commit a72f913
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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')