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)