From d25d55c9c68263100ea21e66eda74067cc8c1393 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 19 Aug 2016 16:41:58 -0400 Subject: fix 2 fencepost errors! --- UI/Readline.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UI') diff --git a/UI/Readline.hs b/UI/Readline.hs index 668c023..0f852ea 100644 --- a/UI/Readline.hs +++ b/UI/Readline.hs @@ -140,9 +140,9 @@ myPromptKeyId title desc l = do putStrLn "" case readMaybe r of Just n - | n > 0 && n < length l -> do + | n > 0 && n <= length l -> do putStrLn "" - return $ Just $ snd (l !! n) + return $ Just $ snd (l !! pred n) _ -> do putStrLn $ "Enter a number from 1 to " ++ show (length l) prompt -- cgit v1.2.3