hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Make createRegularFile and createDir accept FileMode parameter

Browse Source
This commit is contained in:
Julian Ospald
2016-06-05 17:46:25 +02:00
parent 16af98b32d
commit 92017ab630
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/Utils.hs
View File

@@ -86,7 +86,7 @@ createTmpDir :: IO ()
createTmpDir = do
pwd <- fromJust <$> getEnv "PWD" >>= P.parseAbs
tmp <- P.parseRel =<< readIORef tmpDir
void $ createDir (pwd P.</> tmp)
void $ createDir newDirPerms (pwd P.</> tmp)
deleteTmpDir :: IO ()
@@ -102,7 +102,7 @@ createBaseTmpDir :: IO ()
createBaseTmpDir = do
pwd <- fromJust <$> getEnv "PWD" >>= P.parseAbs
tmp <- P.parseRel baseTmpDir
void $ createDir (pwd P.</> tmp)
void $ createDir newDirPerms (pwd P.</> tmp)
deleteBaseTmpDir :: IO ()
@@ -177,12 +177,12 @@ copyDirRecursive' inputDirP outputDirP cm rm =
createDir' :: ByteString -> IO ()
{-# NOINLINE createDir' #-}
createDir' dest = withTmpDir dest createDir
createDir' dest = withTmpDir dest (createDir newDirPerms)
createRegularFile' :: ByteString -> IO ()
{-# NOINLINE createRegularFile' #-}
createRegularFile' dest = withTmpDir dest createRegularFile
createRegularFile' dest = withTmpDir dest (createRegularFile newFilePerms)
createSymlink' :: ByteString -> ByteString -> IO ()