more Wall cleaning

1 files changed, 1 insertions, 1 deletions

diff --git a/Core.hs b/Core.hs
index 5f799161c..c5026c6a5 100644
--- a/Core.hs
+++ b/Core.hs
@@ -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)