diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 01:19:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 01:19:40 -0400 |
| commit | 48b4626af26ac8a8ed21692752af09a9e0d0b93e (patch) | |
| tree | f01b92951117681170330418e05eb0462b98ed74 /Propellor/Engine.hs | |
| parent | 2100a0349a2c0e072cb62850a9cb66c51e262e8f (diff) | |
reset title
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 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 |