jlamothe/abacus
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed haddock comments

This commit is contained in:
Jonathan Lamothe 2024-08-22 16:38:41 -04:00
parent 84415db96a
commit af72ca74af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Abacus/App/Actions.hs
View File

@ -31,11 +31,11 @@ import Lens.Micro.Platform ((^.), (&), (%~))
import Abacus import Abacus
import Abacus.App.Types import Abacus.App.Types
-- Moves the cursor up -- | Moves the cursor up
moveUp :: AppState -> AppState moveUp :: AppState -> AppState
moveUp = rungNum %~ (max 0 . pred) moveUp = rungNum %~ (max 0 . pred)
-- Moves the cursor down -- | Moves the cursor down
moveDown :: AppState -> AppState moveDown :: AppState -> AppState
moveDown s = s & rungNum %~ moveDown s = s & rungNum %~
(min (pred $ getNumRungs $ s^.abacus) . succ) (min (pred $ getNumRungs $ s^.abacus) . succ)