From 06151a3a083337fc3471312ce06c60b648b79ad4 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Mon, 21 Dec 2015 18:54:37 +0100 Subject: [PATCH] LIB: minor improvement to copyDir --- src/IO/File.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/IO/File.hs b/src/IO/File.hs index e0874a5..0b52794 100644 --- a/src/IO/File.hs +++ b/src/IO/File.hs @@ -138,8 +138,8 @@ runFileOp _ = return Nothing -- * `DirDoesExist` if the target directory already exists during the Strict -- copy mode -- * anything that `copyFileToDir`, `getFileStatus`, `createDirectory`, --- `easyDelete`, `readSymbolicLink`, `createDirectoryIfMissing`, --- `removeDirectoryRecursive`, `createSymbolicLink`, `copyDir`, +-- `easyDelete`, `createDirectoryIfMissing`, +-- `removeDirectoryRecursive`, `recreateSymlink`, `copyDir`, -- `copyFileToDir`, `getDirectoryContents` throws copyDir :: DirCopyMode -> FilePath -- ^ source dir @@ -183,7 +183,7 @@ copyDir cm from' to' = do recreateSymlink' destdir n f = do let sympoint = destdir n - case cm of + _ <- case cm of -- delete old file/dir to be able to create symlink Merge -> easyDelete sympoint _ -> return ()