From 35a9afb3a96392c5146adc9a98de1b4ab5879ec5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 19 Jun 2016 13:59:01 -0400 Subject: fix desc --- src/Propellor/Property/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/File.hs') diff --git a/src/Propellor/Property/File.hs b/src/Propellor/Property/File.hs index 981401ce..95fc6f81 100644 --- a/src/Propellor/Property/File.hs +++ b/src/Propellor/Property/File.hs @@ -79,7 +79,7 @@ f `basedOn` (f', a) = property' desc $ \o -> do tmpl <- liftIO $ readFile f' ensureProperty o $ fileProperty desc (\_ -> a $ lines $ tmpl) f where - desc = "replace " ++ f + desc = f ++ " is based on " ++ f' -- | Removes a file. Does not remove symlinks or non-plain-files. notPresent :: FilePath -> Property UnixLike -- cgit v1.2.3