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

LIB: give the buffer size in fallbackCopy a name

Browse Source
This commit is contained in:
Julian Ospald 2016-04-10 18:58:06 +02:00
parent 48edf7d47b
commit fb8d1d2e3a
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/HSFM/FileSystem/FileOperations.hs
View File

@ -59,6 +59,10 @@ import Foreign.C.Error
, eINVAL , eINVAL
, eNOSYS , eNOSYS
) )
import Foreign.C.Types
(
CSize
)
import Foreign.Marshal.Alloc import Foreign.Marshal.Alloc
( (
allocaBytes allocaBytes
@ -377,12 +381,14 @@ unsafeCopyFile cm from@(_ :/ RegFile {}) to@(_ :/ Dir {}) fn
bracket (SPI.openFd dest SPI.WriteOnly (Just fileM) bracket (SPI.openFd dest SPI.WriteOnly (Just fileM)
SPI.defaultFileFlags) SPI.defaultFileFlags)
SPI.closeFd SPI.closeFd
$ \dfd -> allocaBytes 8192 $ \buf -> $ \dfd -> allocaBytes (fromIntegral bufSize) $ \buf ->
write' sfd dfd buf 0 write' sfd dfd buf 0
where where
bufSize :: CSize
bufSize = 8192
write' :: Fd -> Fd -> Ptr Word8 -> Int -> IO Int write' :: Fd -> Fd -> Ptr Word8 -> Int -> IO Int
write' sfd dfd buf totalsize = do write' sfd dfd buf totalsize = do
size <- SPB.fdReadBuf sfd buf 8192 size <- SPB.fdReadBuf sfd buf bufSize
if (size == 0) if (size == 0)
then return $ fromIntegral totalsize then return $ fromIntegral totalsize
else do rsize <- SPB.fdWriteBuf dfd buf size else do rsize <- SPB.fdWriteBuf dfd buf size