diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 01:16:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 01:16:01 -0400 |
| commit | 2100a0349a2c0e072cb62850a9cb66c51e262e8f (patch) | |
| tree | c95abe3ff51836ad2d4e5388dd3e9ff601418f83 /Propellor/Engine.hs | |
| parent | ed681de0967c53db5dade2430f39806744ad2b8d (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Engine.hs')
| -rw-r--r-- | Propellor/Engine.hs | 2 |
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 () |