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

cleaner event handler for FixCodeEvent

This commit is contained in:
Jonathan Lamothe 2024-08-15 16:52:23 -04:00
parent 1e37c2c47b
commit 44588c691a
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ License along with this program. If not, see
|-} |-}
{-# LANGUAGE LambdaCase, OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Hamming.App.Events ( module Hamming.App.Events (
eventHandler, eventHandler,
@ -47,7 +47,7 @@ import Brick.Keybindings
, onEvent , onEvent
) )
import Control.Monad (void) import Control.Monad (void)
import Control.Monad.State.Class (get, gets, modify, put) import Control.Monad.State.Class (gets, modify, put)
import Data.Either (fromRight) import Data.Either (fromRight)
import Graphics.Vty.Input.Events import Graphics.Vty.Input.Events
( Event (EvKey) ( Event (EvKey)
@ -95,10 +95,7 @@ keyEventHandlers =
, onEvent CheckBitsEvent "Set Check Bits" $ , onEvent CheckBitsEvent "Set Check Bits" $
hammingCode %= setCheckBits hammingCode %= setCheckBits
, onEvent FixCodeEvent "Attempt to Correct Errors" $ , onEvent FixCodeEvent "Attempt to Correct Errors" $
zoom hammingCode $ get >>= \case zoom hammingCode $ gets correctErrors >>= mapM_ put
Nothing -> return ()
Just c -> put c
. correctErrors
, onEvent ResetEvent "Reset Code" $ , onEvent ResetEvent "Reset Code" $
hammingCode .= 0 hammingCode .= 0
] ]