press 'r' to reset hamming code
This commit is contained in:
parent
ee6e2cb8e6
commit
26436538c7
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user