summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/DotDir.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/DotDir.hs b/src/Propellor/DotDir.hs
index d8be3af9..4de7b9c8 100644
--- a/src/Propellor/DotDir.hs
+++ b/src/Propellor/DotDir.hs
@@ -94,6 +94,7 @@ welcomeBanner = say $ unlines $ map prettify
prompt :: String -> [(String, IO ())] -> IO ()
prompt p cs = do
say (p ++ " [" ++ intercalate "|" (map fst cs) ++ "] ")
+ flushConcurrentOutput
hFlush stdout
r <- map toLower <$> getLine
if null r