Fails to extract hardlinks

[hasufell]

Try to unpack https://downloads.haskell.org/~ghc/8.8.3/ghc-8.8.3-src.tar.xz which contains hardlinks:

• ghc-8.6.5/libraries/bytestring/LICENSE -> ghc-8.6.5/libraries/bytestring/bench/LICENSE

tar/Codec/Archive/Tar/Unpack.hs

Lines 110 to 113 in bde33fe

	emulateLinks = mapM_ $ \(relPath, relLinkTarget) ->
	let absPath = baseDir </> relPath
	absTarget = FilePath.Native.takeDirectory absPath </> relLinkTarget
	in copyFile absTarget absPath

will receive:

"ghc-8.6.5/libraries/bytestring/LICENSE"       -- relPath
"ghc-8.6.5/libraries/bytestring/bench/LICENSE" -- relLinkTarget

And then concatenate to the path ghc-8.6.5/libraries/bytestring/ghc-8.6.5/libraries/bytestring/bench/LICENSE, which doesn't exist. So are hardlinks always "absolute" in the context of the tar root?

[Bodigrim]

Seems to be fixed by #77.