6 copyDir2 :: File -> <Proc> ()
7 copyDir2 sourceDir = iter copyDir $ vectorToList $ listFiles sourceDir
10 copyDir :: File -> File -> <Proc> ()
11 copyDir sourceDir targetDir = do
13 files = vectorToList $ listFiles sourceDir
14 iter (\sourceFile -> do
15 targetFile = childFile targetDir $ nameOfFile sourceFile
16 if isDirectory sourceFile then
17 copyDir sourceFile targetFile
19 copyFile sourceFile targetFile