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

remove absNormPathUnix, using my absPathFrom replacement

Browse source
This commit is contained in:
Joey Hess 2015-01-21 13:37:09 -04:00
parent 32fac4b71b
commit a7f05c007b
2 changed files with 2 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Locations.hs
View file

@ -144,11 +144,9 @@ gitAnnexLocation' key r crippled
gitAnnexLink :: FilePath -> Key -> Git.Repo -> IO FilePath
gitAnnexLink file key r = do
currdir <- getCurrentDirectory
let absfile = fromMaybe whoops $ absNormPathUnix currdir file
let absfile = absPathFrom currdir file
loc <- gitAnnexLocation' key r False
relPathDirToFile (parentDir absfile) loc
where
whoops = error $ "unable to normalize " ++ file
{- File used to lock a key's content. -}
gitAnnexContentLock :: Key -> Git.Repo -> GitConfig -> IO FilePath