diff options
Diffstat (limited to 'UI/Readline.hs')
-rw-r--r-- | UI/Readline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UI/Readline.hs b/UI/Readline.hs index 8a3c4ee..23be2e3 100644 --- a/UI/Readline.hs +++ b/UI/Readline.hs @@ -37,10 +37,10 @@ myShowError desc = do myPromptQuestion :: Title -> Desc -> Question -> IO Bool myPromptQuestion title desc question = do showTitle title + putStrLn desc go where go = do - putStrLn desc mresp <- readline $ question ++ " [y/n] " case mresp of Just s |