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