From 1d180d6ae55b94b704e0731f57daa678833395fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 12:55:59 -0400 Subject: inverted logic --- Propellor/Property/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Propellor/Property') 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 -- cgit v1.2.3