From 2d046cad32f5950472b87bc8eb97686fbf2cdcb3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 2 Apr 2016 12:21:49 -0400 Subject: force flush on prompt --- src/Propellor/DotDir.hs | 1 + 1 file changed, 1 insertion(+) 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 -- cgit v1.2.3