Added a couple of hooks

1 files changed, 2 insertions, 0 deletions

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