mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

generalized relPathDirTo functions

Browse source
This commit is contained in:
Joey Hess 2011-04-25 13:36:39 -04:00
parent b0b413c69f
commit e433c6f0bb
3 changed files with 18 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Content.hs
View file

@ -58,7 +58,7 @@ calcGitLink file key = do
let absfile = case absNormPath cwd file of
Just f -> f
Nothing -> error $ "unable to normalize " ++ file
return $ relPathDirToDir (parentDir absfile)
return $ relPathDirToFile (parentDir absfile)
(Git.workTree g) </> ".git" </> annexLocation key
{- Updates the LocationLog when a key's presence changes.