more Wall cleaning

1 files changed, 1 insertions, 1 deletions

diff --git a/Core.hs b/Core.hs
index c5026c6a5..ebe5d2966 100644
--- a/Core.hs
+++ b/Core.hs
@@ -109,7 +109,7 @@ calcGitLink file key = do
 		Just f -> f
 		Nothing -> error $ "unable to normalize " ++ file
 	return $ (relPathDirToDir (parentDir absfile) (Git.workTree g)) ++
-		annexLocationRelative g key
+		annexLocationRelative key
 
 {- Updates the LocationLog when a key's presence changes. -}
 logStatus :: Key -> LogStatus -> Annex ()