summaryrefslogtreecommitdiff
path: root/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 01:16:01 -0400
committerJoey Hess2014-03-31 01:16:01 -0400
commit2100a0349a2c0e072cb62850a9cb66c51e262e8f (patch)
treec95abe3ff51836ad2d4e5388dd3e9ff601418f83 /Propellor/Engine.hs
parented681de0967c53db5dade2430f39806744ad2b8d (diff)
propellor spin
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 ()