From 92957b27ece2d4fb2eb4ce9121dd26ee94985b48 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:08:02 -0400 Subject: cabalized and added a wrapper program --- Property.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'Property.hs') 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) -- cgit v1.3-2-g0d8e