fix relative symlink 2

This commit is contained in:
Joey Hess 2010-10-13 01:36:20 -04:00
parent 16cd682290
commit 3e65384f06
2 changed files with 21 additions and 10 deletions

View file

@ -40,7 +40,8 @@ annexLocation state backend key =
(gitWorkTree $ repo state) ++ "/" ++
(annexLocationRelative state backend key)
{- Annexed file's location relative to the gitWorkTree -}
annexLocationRelative :: State -> Backend -> Key -> FilePath
annexLocationRelative state backend key =
annexLocationRelative state backend key =
gitDir (repo state) ++ "/annex/" ++ (name backend) ++
"/" ++ (keyFile key)