don't scroll past top of page

2019-10-15 00:16:44 -04:00
parent a91ed5afb3
commit 363d0cb2d3
3 changed files with 40 additions and 2 deletions
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@@ -278,8 +278,8 @@ reportC = Controller
    return C.CursorInvisible
  , handleController = \e -> do
    case e of
-      C.EventSpecialKey C.KeyUpArrow   -> modify $ scrollOffset %~ pred
-      C.EventSpecialKey C.KeyDownArrow -> modify $ scrollOffset %~ succ
+      C.EventSpecialKey C.KeyUpArrow   -> modify scrollUp
+      C.EventSpecialKey C.KeyDownArrow -> modify scrollDown
      C.EventSpecialKey C.KeyHome      -> modify $ scrollOffset .~ 0
      C.EventSpecialKey _              -> modify backHome
      C.EventCharacter _               -> modify backHome