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

press 'r' to reset hamming code

This commit is contained in:
Jonathan Lamothe 2024-08-09 15:05:33 -04:00
parent ee6e2cb8e6
commit 26436538c7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,6 +53,8 @@ eventHandler (VtyEvent (EvKey (KChar 'v') [])) =
zoom hammingCode $ gets correctErrors >>= \case zoom hammingCode $ gets correctErrors >>= \case
Just c -> put c Just c -> put c
Nothing -> return () Nothing -> return ()
eventHandler (VtyEvent (EvKey (KChar 'r') [])) =
hammingCode .= 0
eventHandler e = gets (^.appMode) >>= \case eventHandler e = gets (^.appMode) >>= \case
DisplayMode -> displayHandler e DisplayMode -> displayHandler e
EditMode _ -> editHandler e EditMode _ -> editHandler e