From af72ca74afed6882e873fff6efa5323b3cf57677 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Thu, 22 Aug 2024 16:38:41 -0400
Subject: [PATCH] fixed haddock comments

---
 src/Abacus/App/Actions.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Abacus/App/Actions.hs b/src/Abacus/App/Actions.hs
index d6495e8..9659324 100644
--- a/src/Abacus/App/Actions.hs
+++ b/src/Abacus/App/Actions.hs
@@ -31,11 +31,11 @@ import Lens.Micro.Platform ((^.), (&), (%~))
 import Abacus
 import Abacus.App.Types
 
--- Moves the cursor up
+-- | Moves the cursor up
 moveUp :: AppState -> AppState
 moveUp = rungNum %~ (max 0 . pred)
 
--- Moves the cursor down
+-- | Moves the cursor down
 moveDown :: AppState -> AppState
 moveDown s = s & rungNum %~
   (min (pred $ getNumRungs $ s^.abacus) . succ)