diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-11-24 09:30:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-24 09:30:37 -0400 |
| commit | d845790bce5a2a4b11de63867fbdd5ecfcc47380 (patch) | |
| tree | 677f1f24ff28e77f89e9c11ef8aded7821068c4d | |
| parent | 2ab096650fe8d6265293420492f42cceedbce9ac (diff) | |
fix indent
| -rw-r--r-- | src/Propellor/Property/Git.hs | 16 |
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") |