diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 00:08:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 00:08:02 -0400 |
| commit | 92957b27ece2d4fb2eb4ce9121dd26ee94985b48 (patch) | |
| tree | c25c4dbd5d497958ba011ad7382ab92fc3cc8f45 /Property.hs | |
| parent | 0ab0216d0b400fae78a6a6916ef9f82ed31dc0fa (diff) | |
cabalized and added a wrapper program
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) |