summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/File.hs
diff options
context:
space:
mode:
authorJoey Hess2016-06-19 13:59:01 -0400
committerJoey Hess2016-06-19 13:59:01 -0400
commit35a9afb3a96392c5146adc9a98de1b4ab5879ec5 (patch)
tree1a755a19d5b4588ab2d11984d57a7de885862a2b /src/Propellor/Property/File.hs
parentb8d9e971018ebdf1f954be8977709bdaec0720e9 (diff)
fix desc
Diffstat (limited to 'src/Propellor/Property/File.hs')
-rw-r--r--src/Propellor/Property/File.hs2
1 files changed, 1 insertions, 1 deletions
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