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

LIB: add createDir

Browse Source
This commit is contained in:
Julian Ospald 2015-12-26 15:58:41 +01:00
parent d727566e86
commit edb51ad1f6
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 37 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
src/IO/File.hs
View File

@ -404,17 +404,20 @@ createFile _ ".." = return ()
createFile (SADir td) fn = do createFile (SADir td) fn = do
let fullp = fullPath td </> fn let fullp = fullPath td </> fn
throwFileDoesExist fullp throwFileDoesExist fullp
let uf = unionFileModes fd <- System.Posix.IO.createFile fullp newFilePerms
mode = ownerWriteMode
`uf` ownerReadMode
`uf` groupWriteMode
`uf` groupReadMode
`uf` otherWriteMode
`uf` otherReadMode
fd <- System.Posix.IO.createFile fullp mode
closeFd fd closeFd fd
createDir :: AnchoredFile FileInfo -> FileName -> IO ()
createDir _ "" = return ()
createDir _ "." = return ()
createDir _ ".." = return ()
createDir (SADir td) fn = do
let fullp = fullPath td </> fn
throwDirDoesExist fullp
createDirectory fullp newFilePerms
--------------------- ---------------------
@ -433,3 +436,29 @@ renameFile af fn = do
throwFileDoesExist tof throwFileDoesExist tof
throwSameFile fromf tof throwSameFile fromf tof
rename fromf tof rename fromf tof
-----------------------
--[ File Permissions]--
-----------------------
newFilePerms :: FileMode
newFilePerms
= ownerWriteMode
`unionFileModes` ownerReadMode
`unionFileModes` groupWriteMode
`unionFileModes` groupReadMode
`unionFileModes` otherWriteMode
`unionFileModes` otherReadMode
newDirPerms :: FileMode
newDirPerms
= ownerModes
`unionFileModes` groupExecuteMode
`unionFileModes` groupReadMode
`unionFileModes` otherExecuteMode
`unionFileModes` otherReadMode