diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-17 00:00:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-17 00:00:11 -0400 |
| commit | b474ab87ae45ed77f42eb41f658a55262bd92217 (patch) | |
| tree | 674b6f0fbee010f6073089fe6b727ff76a05868e /UI | |
| parent | a133e18d25ebd2307037a982ee29cbdd58b3124e (diff) | |
| download | keysafe-b474ab87ae45ed77f42eb41f658a55262bd92217.tar.gz | |
avoid desc redisplay
Diffstat (limited to 'UI')
| -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 |