From ee6e2cb8e6a0bb310b4b7b74f604086f74ed0fd0 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 9 Aug 2024 15:00:57 -0400
Subject: [PATCH] make use of `.=` and `%=` operators

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

diff --git a/src/Hamming/App/Events.hs b/src/Hamming/App/Events.hs
index da729c9..c162316 100644
--- a/src/Hamming/App/Events.hs
+++ b/src/Hamming/App/Events.hs
@@ -36,8 +36,8 @@ import Graphics.Vty.Input.Events
   , Key (..)
   , Modifier (MCtrl)
   )
-import Lens.Micro ((^.), (.~), (%~))
-import Lens.Micro.Mtl (zoom)
+import Lens.Micro ((^.))
+import Lens.Micro.Mtl (zoom, (.=), (%=))
 
 import Hamming
 import Hamming.App.Actions
@@ -48,7 +48,7 @@ eventHandler :: Handler
 eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt
 eventHandler (VtyEvent (EvKey (KChar 'q') [])) = halt
 eventHandler (VtyEvent (EvKey (KChar 'c') [])) =
-  modify $ hammingCode %~ setCheckBits
+  hammingCode %= setCheckBits
 eventHandler (VtyEvent (EvKey (KChar 'v') [])) =
   zoom hammingCode $ gets correctErrors >>= \case
     Just c  -> put c
@@ -59,28 +59,28 @@ eventHandler e = gets (^.appMode) >>= \case
 
 displayHandler :: Handler
 displayHandler (VtyEvent (EvKey (KChar 'e') [])) =
-  modify $ appMode .~ EditMode initialEditor
+  appMode .= EditMode initialEditor
 displayHandler _ = return ()
 
 editHandler :: Handler
 editHandler (VtyEvent (EvKey KEsc [])) =
-  modify $ appMode .~ DisplayMode
+  appMode .= DisplayMode
 editHandler (VtyEvent (EvKey KUp [])) =
-  modify $ appMode.editState %~ moveUp
+  appMode.editState %= moveUp
 editHandler (VtyEvent (EvKey (KChar 'k') [])) =
-  modify $ appMode.editState %~ moveUp
+  appMode.editState %= moveUp
 editHandler (VtyEvent (EvKey KDown [])) =
-  modify $ appMode.editState %~ moveDown
+  appMode.editState %= moveDown
 editHandler (VtyEvent (EvKey (KChar 'j') [])) =
-  modify $ appMode.editState %~ moveDown
+  appMode.editState %= moveDown
 editHandler (VtyEvent (EvKey KLeft [])) =
-  modify $ appMode.editState %~ moveLeft
+  appMode.editState %= moveLeft
 editHandler (VtyEvent (EvKey (KChar 'h') [])) =
-  modify $ appMode.editState %~ moveLeft
+  appMode.editState %= moveLeft
 editHandler (VtyEvent (EvKey KRight [])) =
-  modify $ appMode.editState %~ moveRight
+  appMode.editState %= moveRight
 editHandler (VtyEvent (EvKey (KChar 'l') [])) =
-  modify $ appMode.editState %~ moveRight
+  appMode.editState %= moveRight
 editHandler (VtyEvent (EvKey (KChar 'f') [])) =
   modify flipBit
 editHandler _ = return ()