diff options
-rw-r--r-- | UI/Readline.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |