use RawFilePath version of rename
Some small wins, almost certianly swamped by the system calls, but still worthwhile progress on the RawFilePath conversion. Sponsored-by: Erik Bjäreholt on Patreon
This commit is contained in:
parent
d00e23cac9
commit
debcf86029
16 changed files with 58 additions and 54 deletions
|
@ -27,6 +27,7 @@ module Utility.RawFilePath (
|
|||
getCurrentDirectory,
|
||||
createDirectory,
|
||||
setFileMode,
|
||||
rename,
|
||||
) where
|
||||
|
||||
#ifndef mingw32_HOST_OS
|
||||
|
@ -87,4 +88,7 @@ createDirectory = D.createDirectory . fromRawFilePath
|
|||
|
||||
setFileMode :: RawFilePath -> FileMode -> IO ()
|
||||
setFileMode = F.setFileMode . fromRawFilePath
|
||||
|
||||
rename :: RawFilePath -> RawFilePath -> IO ()
|
||||
rename a b = F.rename (fromRawFilePath a) (fromRawFilePath b)
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue