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

LIB: minor improvement to copyDir

Browse Source
This commit is contained in:
Julian Ospald
2015-12-21 18:54:37 +01:00
parent da32ccf619
commit 06151a3a08
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/IO/File.hs
View File

@@ -138,8 +138,8 @@ runFileOp _ = return Nothing
-- * `DirDoesExist` if the target directory already exists during the Strict -- * `DirDoesExist` if the target directory already exists during the Strict
-- copy mode -- copy mode
-- * anything that `copyFileToDir`, `getFileStatus`, `createDirectory`, -- * anything that `copyFileToDir`, `getFileStatus`, `createDirectory`,
-- `easyDelete`, `readSymbolicLink`, `createDirectoryIfMissing`, -- `easyDelete`, `createDirectoryIfMissing`,
-- `removeDirectoryRecursive`, `createSymbolicLink`, `copyDir`, -- `removeDirectoryRecursive`, `recreateSymlink`, `copyDir`,
-- `copyFileToDir`, `getDirectoryContents` throws -- `copyFileToDir`, `getDirectoryContents` throws
copyDir :: DirCopyMode copyDir :: DirCopyMode
-> FilePath -- ^ source dir -> FilePath -- ^ source dir
@@ -183,7 +183,7 @@ copyDir cm from' to' = do
recreateSymlink' destdir n f = do recreateSymlink' destdir n f = do
let sympoint = destdir </> n let sympoint = destdir </> n
case cm of _ <- case cm of
-- delete old file/dir to be able to create symlink -- delete old file/dir to be able to create symlink
Merge -> easyDelete sympoint Merge -> easyDelete sympoint
_ -> return () _ -> return ()