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

LIB: improve performance of copyDir

Browse Source
This commit is contained in:
Julian Ospald 2015-12-18 14:21:57 +01:00
parent 074ee45961
commit e67d68ab15
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

@ -79,6 +79,7 @@ runFileOp _ = return ()
-- TODO: copy modes -- TODO: copy modes
-- TODO: allow renaming
copyDir :: DTInfoZipper -- ^ source dir copyDir :: DTInfoZipper -- ^ source dir
-> DTInfoZipper -- ^ destination dir -> DTInfoZipper -- ^ destination dir
-> IO () -> IO ()
@ -92,9 +93,10 @@ copyDir from@(Dir fn _ _, _) to@(Dir {}, _) = do
throwDestinationInSource fromp top throwDestinationInSource fromp top
createDirectoryIfMissing False destdir createDirectoryIfMissing False destdir
for_ (goAllDown from) $ \f -> do
newDest <- zipLazy mkDirInfo mkFileInfo destdir newDest <- zipLazy mkDirInfo mkFileInfo destdir
for_ (goAllDown from) $ \f ->
-- TODO: maybe do this strict?
case f of case f of
-- recreate symlink -- recreate symlink
sz@(Dir { name = n, dir = (DirInfo { sym = True }) }, _) -> do sz@(Dir { name = n, dir = (DirInfo { sym = True }) }, _) -> do
@ -112,7 +114,6 @@ copyDir from@(File _ _, _) _ = throw $ NotADir (getFullPath from)
copyDir _ to@(File _ _, _) = throw $ NotADir (getFullPath to) copyDir _ to@(File _ _, _) = throw $ NotADir (getFullPath to)
-- |Copies the given file. -- |Copies the given file.
-- --
-- This will throw an exception if any of the filepaths are not absolute -- This will throw an exception if any of the filepaths are not absolute