make symlink relative and install link target

This commit is contained in:
Joey Hess 2019-10-17 12:21:23 -04:00
parent 904b175707
commit 9dff416a34
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -61,8 +61,10 @@ installGitLibs topdir = do
linktarget <- readSymbolicLink f
let linktarget' = gitcoredestdir </> "bin" </> takeFileName linktarget
createDirectoryIfMissing True (takeDirectory linktarget')
cp f linktarget'
nukeFile destf
createSymbolicLink linktarget' destf
rellinktarget <- relPathDirToFile (takeDirectory destf) linktarget'
createSymbolicLink rellinktarget destf
else cp f destf
-- install git's template files