diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-04-02 12:21:49 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-02 12:21:49 -0400 |
| commit | 2d046cad32f5950472b87bc8eb97686fbf2cdcb3 (patch) | |
| tree | 9ab9df7f703b2693b4dfa4864f96b4479e0e0688 /src/Propellor/DotDir.hs | |
| parent | d9e7191bb54d27c5680a98da448725e5314a3e23 (diff) | |
force flush on prompt
Diffstat (limited to 'src/Propellor/DotDir.hs')
| -rw-r--r-- | src/Propellor/DotDir.hs | 1 |
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 |