summaryrefslogtreecommitdiff
path: root/src/Propellor/DotDir.hs
diff options
context:
space:
mode:
authorJoey Hess2016-04-02 12:21:49 -0400
committerJoey Hess2016-04-02 12:21:49 -0400
commit2d046cad32f5950472b87bc8eb97686fbf2cdcb3 (patch)
tree9ab9df7f703b2693b4dfa4864f96b4479e0e0688 /src/Propellor/DotDir.hs
parentd9e7191bb54d27c5680a98da448725e5314a3e23 (diff)
force flush on prompt
Diffstat (limited to 'src/Propellor/DotDir.hs')
-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