From 89cd31ce1275bee6c8da8b3d9f4b00155a2e5fd2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sun, 25 Aug 2013 19:55:17 -0300 Subject: Added a couple of hooks --- State.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'State.hs') diff --git a/State.hs b/State.hs index 7ff8359..57b6258 100644 --- a/State.hs +++ b/State.hs @@ -108,6 +108,7 @@ incrementSelectedRow st | (selectedRow st) < limit = case (mode st) of indexState' = (indexState st) { selectedRowIn = sr + 1 } in st { indexState = indexState' } + _ -> st | otherwise = st where limit' = case (mode st) of @@ -130,6 +131,7 @@ decrementSelectedRow st | (selectedRow st) > 0 = case (mode st) of indexState' = (indexState st) { selectedRowIn = sr - 1 } in st { indexState = indexState' } + _ -> st | otherwise = st selectedRow st = case (mode st) of -- cgit v1.2.3