cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

reset title

This commit is contained in:
Joey Hess 2014-03-31 01:19:40 -04:00
parent 2100a0349a
commit 48b4626af2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Engine.hs
View File

@ -13,6 +13,8 @@ ensureProperty = catchDefaultIO FailedChange . propertySatisfy
ensureProperties :: [Property] -> IO () ensureProperties :: [Property] -> IO ()
ensureProperties ps = do ensureProperties ps = do
r <- ensureProperties' [Property "overall" $ ensureProperties' ps] r <- ensureProperties' [Property "overall" $ ensureProperties' ps]
setTitle "propellor done"
hFlush stdout
case r of case r of
FailedChange -> exitWith (ExitFailure 1) FailedChange -> exitWith (ExitFailure 1)
_ -> exitWith ExitSuccess _ -> exitWith ExitSuccess