diff options
Diffstat (limited to 'src/Lazymail/Screen.hs')
| -rw-r--r-- | src/Lazymail/Screen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs index 699f84e..d6937dd 100644 --- a/src/Lazymail/Screen.hs +++ b/src/Lazymail/Screen.hs @@ -231,11 +231,11 @@ handleEvent = loop where case ev' of EventCharacter 'q' -> EH.previousMode (mode st) - EventSpecialKey KeyUpArrow -> EH.decSelectedRow (mode st) - EventCharacter 'k' -> EH.decSelectedRow (mode st) + EventSpecialKey KeyUpArrow -> EH.scrollUp (mode st) + EventCharacter 'k' -> EH.scrollUp (mode st) - EventSpecialKey KeyDownArrow -> EH.incSelectedRow (mode st) - EventCharacter 'j' -> EH.incSelectedRow (mode st) + EventSpecialKey KeyDownArrow -> EH.scrollDown (mode st) + EventCharacter 'j' -> EH.scrollDown (mode st) EventCharacter '\n' -> EH.changeMode (mode st) EventSpecialKey KeyRightArrow -> EH.changeMode (mode st) |