summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Git.hs
diff options
context:
space:
mode:
authorJoey Hess2015-11-24 09:34:27 -0400
committerJoey Hess2015-11-24 09:34:27 -0400
commitdd02725a9e6d802b52212cfd89c9815745fe0f02 (patch)
tree014e2391780bb2f93c3861700b847023777b6bea /src/Propellor/Property/Git.hs
parent923e4e783aaf7edd4ba83c51ad4b3f078bf00698 (diff)
refactor
Diffstat (limited to 'src/Propellor/Property/Git.hs')
-rw-r--r--src/Propellor/Property/Git.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/Property/Git.hs b/src/Propellor/Property/Git.hs
index 64a3b4d3..d9540994 100644
--- a/src/Propellor/Property/Git.hs
+++ b/src/Propellor/Property/Git.hs
@@ -130,6 +130,7 @@ repoAcceptsNonFFs :: FilePath -> RevertableProperty NoInfo
repoAcceptsNonFFs repo = accepts <!> refuses
where
accepts = repoConfigured repo ("receive.denyNonFastForwards", "false")
- `describe` ("git repo " ++ repo ++ " accepts non-fast-forward pushes")
+ `describe` desc "accepts"
refuses = repoConfigured repo ("receive.denyNonFastForwards", "true")
- `describe` ("git repo " ++ repo ++ " refuses non-fast-forward pushes")
+ `describe` desc "rejects"
+ desc s = "git repo " ++ repo ++ " " ++ s ++ " non-fast-forward pushes"