summaryrefslogtreecommitdiff
path: root/Propellor/Engine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Engine.hs')
-rw-r--r--Propellor/Engine.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Propellor/Engine.hs b/Propellor/Engine.hs
index 25870ae8..29c635e0 100644
--- a/Propellor/Engine.hs
+++ b/Propellor/Engine.hs
@@ -23,6 +23,7 @@ ensureProperties' ps = ensure ps NoChange
ensure [] rs = return rs
ensure (l:ls) rs = do
setTitle $ propertyDesc l
+ hFlush stdout
r <- ensureProperty l
clearFromCursorToLineBeginning
setCursorColumn 0
@@ -38,6 +39,7 @@ ensureProperties' ps = ensure ps NoChange
setSGR [SetColor Foreground Vivid Green]
putStrLn "done"
setSGR []
+ hFlush stdout
ensure ls (combineResult r rs)
warningMessage :: String -> IO ()