hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: make recreateSymlink more robust

Browse Source
This commit is contained in:
Julian Ospald 2015-12-21 18:36:45 +01:00
parent 433cb164a6
commit 773cb100b4
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/IO/File.hs
View File

@ -192,14 +192,15 @@ copyDir cm from' to' = do
-- |Recreate a symlink. Don't call `canonicalizePath` on the symlink -- |Recreate a symlink.
-- destination since that will mess with the symlink.
recreateSymlink :: FilePath -- ^ the old symlink file recreateSymlink :: FilePath -- ^ the old symlink file
-> FilePath -- ^ destination of the new symlink file -> FilePath -- ^ destination of the new symlink file
-> IO () -> IO ()
recreateSymlink symf' symdest = do recreateSymlink symf' symdest' = do
symf <- canonicalizePath' symf' symf <- canonicalizePath' symf'
symname <- readSymbolicLink symf symname <- readSymbolicLink symf
symdestd <- canonicalizePath' (baseDir symdest')
let symdest = symdestd </> takeFileName symdest'
createSymbolicLink symname symdest createSymbolicLink symname symdest