summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 01:19:40 -0400
committerJoey Hess2014-03-31 01:19:40 -0400
commit48b4626af26ac8a8ed21692752af09a9e0d0b93e (patch)
treef01b92951117681170330418e05eb0462b98ed74
parent2100a0349a2c0e072cb62850a9cb66c51e262e8f (diff)
reset title
-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