summaryrefslogtreecommitdiff
path: root/Property.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property.hs')
-rw-r--r--Property.hs7
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)