diff options
Diffstat (limited to 'Property.hs')
| -rw-r--r-- | Property.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Property.hs b/Property.hs index 349d3fd3..ded40c4b 100644 --- a/Property.hs +++ b/Property.hs @@ -66,11 +66,8 @@ ensureProperty' (CmdProperty _ cmd params) = ifM (boolSystem cmd params) ) ensureProperty' (IOProperty _ a) = a -ensureProperties :: [Property] -> IO [(Desc, Result)] -ensureProperties ps = zip (map propertyDesc ps) <$> mapM ensureProperty ps - -defaultMain :: [Property] -> IO () -defaultMain ps = do +ensureProperties :: [Property] -> IO () +ensureProperties ps = do r <- ensure ps NoChange case r of FailedChange -> exitWith (ExitFailure 1) |