From 621d80418edd8e818be2890c2b11e87a794ed38e Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 1 Aug 2024 20:37:52 -0400 Subject: [PATCH] added check bit setting functionality --- src/Hamming/App/Events.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Hamming/App/Events.hs b/src/Hamming/App/Events.hs index 59fe2b3..a0a8f08 100644 --- a/src/Hamming/App/Events.hs +++ b/src/Hamming/App/Events.hs @@ -37,6 +37,7 @@ import Graphics.Vty.Input.Events ) import Lens.Micro ((^.), (.~), (%~)) +import Hamming import Hamming.App.Actions import Hamming.App.Types @@ -44,6 +45,8 @@ import Hamming.App.Types eventHandler :: Handler eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt eventHandler (VtyEvent (EvKey (KChar 'q') [])) = halt +eventHandler (VtyEvent (EvKey (KChar 'c') [])) = + modify $ hammingCode %~ setCheckBits eventHandler e = gets (^.appMode) >>= \case DisplayMode -> displayHandler e EditMode _ -> editHandler e