press 'r' to reset hamming code

2024-08-09 15:05:33 -04:00
parent ee6e2cb8e6
commit 26436538c7
1 changed files with 2 additions and 0 deletions
--- a/src/Hamming/App/Events.hs
+++ b/src/Hamming/App/Events.hs
@@ -53,6 +53,8 @@ eventHandler (VtyEvent (EvKey (KChar 'v') [])) =
  zoom hammingCode $ gets correctErrors >>= \case
    Just c  -> put c
    Nothing -> return ()
+eventHandler (VtyEvent (EvKey (KChar 'r') [])) =
+  hammingCode .= 0
 eventHandler e = gets (^.appMode) >>= \case
  DisplayMode -> displayHandler e
  EditMode _  -> editHandler e