summaryrefslogtreecommitdiff
path: root/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 02:57:02 -0400
committerJoey Hess2014-03-30 02:57:02 -0400
commit398a5febbd8084df789d3eaeb2de2f452ed08a61 (patch)
treea22b9325e7f9a6a03dc40f3b3c7b5013d74f2d27 /Property.hs
parent7820c8bb1222b9370e2009e9e60bc807f6bf409b (diff)
overall status hash
Diffstat (limited to 'Property.hs')
-rw-r--r--Property.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Property.hs b/Property.hs
index f7dcccde..4aba094f 100644
--- a/Property.hs
+++ b/Property.hs
@@ -59,7 +59,7 @@ combineProperties desc ps = IOProperty desc $ go ps NoChange
_ -> go ls (combineResult r rs)
ensureProperty :: Property -> IO Result
-ensureProperty = catchDefaultIO FailedChange . ensureProperty'
+ensureProperty = catchDefaultIO FailedChange . ensureProperty'
ensureProperty' :: Property -> IO Result
ensureProperty' (FileProperty _ f a) = go =<< doesFileExist f
@@ -81,7 +81,7 @@ ensureProperty' (IOProperty _ a) = a
ensureProperties :: [Property] -> IO ()
ensureProperties ps = do
- r <- ensureProperties' ps
+ r <- ensureProperties' [propertyList "overall" ps]
case r of
FailedChange -> exitWith (ExitFailure 1)
_ -> exitWith ExitSuccess