summaryrefslogtreecommitdiff
path: root/Locations.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Locations.hs')
-rw-r--r--Locations.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Locations.hs b/Locations.hs
index 5bff63eaf..95aba169c 100644
--- a/Locations.hs
+++ b/Locations.hs
@@ -142,8 +142,8 @@ gitAnnexLocation' key r crippled
{- Calculates a symlink to link a file to an annexed object. -}
gitAnnexLink :: FilePath -> Key -> Git.Repo -> IO FilePath
gitAnnexLink file key r = do
- cwd <- getCurrentDirectory
- let absfile = fromMaybe whoops $ absNormPathUnix cwd file
+ currdir <- getCurrentDirectory
+ let absfile = fromMaybe whoops $ absNormPathUnix currdir file
loc <- gitAnnexLocation' key r False
return $ relPathDirToFile (parentDir absfile) loc
where