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

fix build failure

Browse source
This commit is contained in:
Joey Hess 2015-01-09 11:58:38 -04:00
parent 3fec30928f
commit c70bbdfe9d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/LinuxMkLibs.hs
View file

@ -36,7 +36,7 @@ installLib installfile top lib = ifM (doesFileExist lib)
checksymlink f = whenM (isSymbolicLink <$> getSymbolicLinkStatus (inTop top f)) $ do checksymlink f = whenM (isSymbolicLink <$> getSymbolicLinkStatus (inTop top f)) $ do
l <- readSymbolicLink (inTop top f) l <- readSymbolicLink (inTop top f)
let absl = absPathFrom (takeDirectory f) l let absl = absPathFrom (takeDirectory f) l
let target = relPathDirToFile (takeDirectory f) absl target <- relPathDirToFile (takeDirectory f) absl
installfile top absl installfile top absl
nukeFile (top ++ f) nukeFile (top ++ f)
createSymbolicLink target (inTop top f) createSymbolicLink target (inTop top f)