Add createDirRecursive, fixes #6

2016-06-13 01:28:55 +02:00
parent ac381cbf60
commit 5b08e14b55
4 changed files with 116 additions and 0 deletions
--- a/test/Utils.hs
+++ b/test/Utils.hs
@@ -182,6 +182,9 @@ createDir' :: ByteString -> IO ()
 {-# NOINLINE createDir' #-}
 createDir' dest = withTmpDir dest (createDir newDirPerms)

+createDirRecursive' :: ByteString -> IO ()
+{-# NOINLINE createDirRecursive' #-}
+createDirRecursive' dest = withTmpDir dest (createDirRecursive newDirPerms)

 createRegularFile' :: ByteString -> IO ()
 {-# NOINLINE createRegularFile' #-}