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 29c635e0..22091938 100644
--- a/Propellor/Engine.hs
+++ b/Propellor/Engine.hs
@@ -13,6 +13,8 @@ ensureProperty = catchDefaultIO FailedChange . propertySatisfy
ensureProperties :: [Property] -> IO ()
ensureProperties ps = do
r <- ensureProperties' [Property "overall" $ ensureProperties' ps]
+ setTitle "propellor done"
+ hFlush stdout
case r of
FailedChange -> exitWith (ExitFailure 1)
_ -> exitWith ExitSuccess