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

HPath.IO: small cleanup

Browse Source
This commit is contained in:
Julian Ospald 2016-05-10 00:28:04 +02:00
parent 613754c58f
commit c76df7f159
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/HPath/IO.hs
View File

@ -393,13 +393,13 @@ _copyFile :: [SPDF.Flags]
-> IO () -> IO ()
_copyFile sflags dflags from to _copyFile sflags dflags from to
= =
-- TODO: add sendfile support -- TODO: add sendfile support
withAbsPath to $ \to' -> withAbsPath from $ \from' -> void $ readWriteCopy (fromAbs from) (fromAbs to)
void $ fallbackCopy from' to'
where where
-- low-level copy operation utilizing read(2)/write(2) -- low-level copy operation utilizing read(2)/write(2)
-- in case `sendFileCopy` fails/is unsupported -- in case `sendFileCopy` fails/is unsupported
fallbackCopy source dest = readWriteCopy :: ByteString -> ByteString -> IO Int
readWriteCopy source dest =
bracket (SPDT.openFd source SPI.ReadOnly sflags Nothing) bracket (SPDT.openFd source SPI.ReadOnly sflags Nothing)
SPI.closeFd SPI.closeFd
$ \sfd -> do $ \sfd -> do