diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-01 12:55:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-01 12:55:59 -0400 |
| commit | 1d180d6ae55b94b704e0731f57daa678833395fd (patch) | |
| tree | 39747a2c697036cccdd702303addbb75162667f2 /Propellor/Property/File.hs | |
| parent | f9686cd3df4c1e8e39c5504eb4225799f59c265e (diff) | |
inverted logic
Diffstat (limited to 'Propellor/Property/File.hs')
| -rw-r--r-- | Propellor/Property/File.hs | 2 |
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 |