summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-11-24 09:30:20 -0400
committerJoey Hess2015-11-24 09:30:37 -0400
commitd845790bce5a2a4b11de63867fbdd5ecfcc47380 (patch)
tree677f1f24ff28e77f89e9c11ef8aded7821068c4d
parent2ab096650fe8d6265293420492f42cceedbce9ac (diff)
fix indent
-rw-r--r--src/Propellor/Property/Git.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Propellor/Property/Git.hs b/src/Propellor/Property/Git.hs
index 2c3a60ba..64a3b4d3 100644
--- a/src/Propellor/Property/Git.hs
+++ b/src/Propellor/Property/Git.hs
@@ -119,17 +119,17 @@ bareRepo repo user gitshared = check (isRepo repo) $ propertyList ("git repo: "
repoConfigured :: FilePath -> (String, String) -> Property NoInfo
repo `repoConfigured` (key, value) =
trivial $ userScriptProperty (User "root")
- [ "cd " ++ repo
- , "git config " ++ key ++ " " ++ value
- ]
+ [ "cd " ++ repo
+ , "git config " ++ key ++ " " ++ value
+ ]
`describe` ("git repo at " ++ repo
++ " config setting " ++ key ++ " set to " ++ value)
-- | Whether a repo accepts non-fast-forward pushes.
repoAcceptsNonFFs :: FilePath -> RevertableProperty NoInfo
repoAcceptsNonFFs repo = accepts <!> refuses
- where
- accepts = repoConfigured repo ("receive.denyNonFastForwards", "false")
- `describe` ("git repo " ++ repo ++ " accepts non-fast-forward pushes")
- refuses = repoConfigured repo ("receive.denyNonFastForwards", "true")
- `describe` ("git repo " ++ repo ++ " refuses non-fast-forward pushes")
+ where
+ accepts = repoConfigured repo ("receive.denyNonFastForwards", "false")
+ `describe` ("git repo " ++ repo ++ " accepts non-fast-forward pushes")
+ refuses = repoConfigured repo ("receive.denyNonFastForwards", "true")
+ `describe` ("git repo " ++ repo ++ " refuses non-fast-forward pushes")