cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

inverted logic

This commit is contained in:
Joey Hess 2014-04-01 12:55:59 -04:00
parent f9686cd3df
commit 1d180d6ae5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Property/File.hs
View File

@ -41,5 +41,5 @@ fileProperty desc a f = Property desc $ go =<< doesFileExist f
-- | Ensures a directory exists. -- | Ensures a directory exists.
dirExists :: FilePath -> Property dirExists :: FilePath -> Property
dirExists d = check (doesDirectoryExist d) $ Property (d ++ " exists") $ dirExists d = check (not <$> doesDirectoryExist d) $ Property (d ++ " exists") $
makeChange $ createDirectoryIfMissing True d makeChange $ createDirectoryIfMissing True d