summaryrefslogtreecommitdiff
path: root/Propellor/Property/File.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 12:55:59 -0400
committerJoey Hess2014-04-01 12:55:59 -0400
commit1d180d6ae55b94b704e0731f57daa678833395fd (patch)
tree39747a2c697036cccdd702303addbb75162667f2 /Propellor/Property/File.hs
parentf9686cd3df4c1e8e39c5504eb4225799f59c265e (diff)
inverted logic
Diffstat (limited to 'Propellor/Property/File.hs')
-rw-r--r--Propellor/Property/File.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Propellor/Property/File.hs b/Propellor/Property/File.hs
index f3065d21..4312b89d 100644
--- a/Propellor/Property/File.hs
+++ b/Propellor/Property/File.hs
@@ -41,5 +41,5 @@ fileProperty desc a f = Property desc $ go =<< doesFileExist f
-- | Ensures a directory exists.
dirExists :: FilePath -> Property
-dirExists d = check (doesDirectoryExist d) $ Property (d ++ " exists") $
+dirExists d = check (not <$> doesDirectoryExist d) $ Property (d ++ " exists") $
makeChange $ createDirectoryIfMissing True d