fixed haddock comments

2024-08-22 16:38:41 -04:00 · 2024-08-22 16:38:41 -04:00 · af72ca74af
parent 84415db96a
commit af72ca74af
1 changed files with 2 additions and 2 deletions
--- 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)