From b474ab87ae45ed77f42eb41f658a55262bd92217 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 17 Aug 2016 00:00:11 -0400 Subject: avoid desc redisplay --- UI/Readline.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'UI') 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 -- cgit v1.2.3