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