summaryrefslogtreecommitdiff
path: root/Git.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git.hs')
-rw-r--r--Git.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Git.hs b/Git.hs
index eab33f19d..46f995e77 100644
--- a/Git.hs
+++ b/Git.hs
@@ -81,8 +81,8 @@ repoIsSsh Repo { location = Url url }
| scheme == "git+ssh:" = True
| scheme == "ssh+git:" = True
| otherwise = False
- where
- scheme = uriScheme url
+ where
+ scheme = uriScheme url
repoIsSsh _ = False
repoIsHttp :: Repo -> Bool
@@ -126,5 +126,5 @@ hookPath script repo = do
let hook = localGitDir repo </> "hooks" </> script
ifM (catchBoolIO $ isexecutable hook)
( return $ Just hook , return Nothing )
- where
- isexecutable f = isExecutable . fileMode <$> getFileStatus f
+ where
+ isexecutable f = isExecutable . fileMode <$> getFileStatus f