more Wall cleaning

This commit is contained in:
Joey Hess 2010-10-31 15:38:47 -04:00
parent 435ec21d58
commit aa05859410
2 changed files with 33 additions and 26 deletions

View file

@ -74,7 +74,7 @@ gitAttributes repo = do
{- set up a git pre-commit hook, if one is not already present -}
gitPreCommitHook :: Git.Repo -> IO ()
gitPreCommitHook repo = do
let hook = (Git.workTree repo) ++ "/" ++ (Git.dir repo) ++
let hook = (Git.workTree repo) ++ "/" ++ (Git.gitDir repo) ++
"/hooks/pre-commit"
exists <- doesFileExist hook
if (exists)