Fix docs and rename RecursiveMode to RecursiveErrorMode

2016-06-05 16:07:46 +02:00
parent 7a6f0e8728
commit d12ce30f57
2 changed files with 13 additions and 13 deletions
--- a/test/Utils.hs
+++ b/test/Utils.hs
@@ -169,7 +169,7 @@ copyFile' inputFileP outputFileP cm =


 copyDirRecursive' :: ByteString -> ByteString
-                  -> CopyMode -> RecursiveMode -> IO ()
+                  -> CopyMode -> RecursiveErrorMode -> IO ()
 {-# NOINLINE copyDirRecursive' #-}
 copyDirRecursive' inputDirP outputDirP cm rm =
  withTmpDir' inputDirP outputDirP (\p1 p2 -> copyDirRecursive p1 p2 cm rm)