fix build failure
This commit is contained in:
parent
3fec30928f
commit
c70bbdfe9d
1 changed files with 1 additions and 1 deletions
|
@ -36,7 +36,7 @@ installLib installfile top lib = ifM (doesFileExist lib)
|
|||
checksymlink f = whenM (isSymbolicLink <$> getSymbolicLinkStatus (inTop top f)) $ do
|
||||
l <- readSymbolicLink (inTop top f)
|
||||
let absl = absPathFrom (takeDirectory f) l
|
||||
let target = relPathDirToFile (takeDirectory f) absl
|
||||
target <- relPathDirToFile (takeDirectory f) absl
|
||||
installfile top absl
|
||||
nukeFile (top ++ f)
|
||||
createSymbolicLink target (inTop top f)
|
||||
|
|
Loading…
Reference in a new issue