From 26436538c7cffd7ca7c95e24ccdb72d43c214fa4 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 9 Aug 2024 15:05:33 -0400
Subject: [PATCH] press 'r' to reset hamming code

---
 src/Hamming/App/Events.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Hamming/App/Events.hs b/src/Hamming/App/Events.hs
index c162316..0f0b735 100644
--- 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