jlamothe/hamming
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

only let pressing q exit when in display mode

This commit is contained in:
Jonathan Lamothe 2024-08-07 16:16:23 -04:00
parent 7c0a10672f
commit 3661ae559a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Hamming/App/Events.hs
View File

@ -44,7 +44,6 @@ import Hamming.App.Types
-- | Handles an event -- | Handles an event
eventHandler :: Handler eventHandler :: Handler
eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt
eventHandler (VtyEvent (EvKey (KChar 'q') [])) = halt
eventHandler (VtyEvent (EvKey (KChar 'c') [])) = eventHandler (VtyEvent (EvKey (KChar 'c') [])) =
modify $ hammingCode %~ setCheckBits modify $ hammingCode %~ setCheckBits
eventHandler e = gets (^.appMode) >>= \case eventHandler e = gets (^.appMode) >>= \case
@ -52,6 +51,7 @@ eventHandler e = gets (^.appMode) >>= \case
EditMode _ -> editHandler e EditMode _ -> editHandler e
displayHandler :: Handler displayHandler :: Handler
displayHandler (VtyEvent (EvKey (KChar 'q') [])) = halt
displayHandler (VtyEvent (EvKey (KChar 'e') [])) = displayHandler (VtyEvent (EvKey (KChar 'e') [])) =
modify $ appMode .~ EditMode initialEditor modify $ appMode .~ EditMode initialEditor
displayHandler _ = return () displayHandler _ = return ()