sendfile 0.7.8 → 0.7.9

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• sendfile.cabal +1/−1
• src/Network/Socket/SendFile/FreeBSD.hs +4/−4

@@ -1,5 +1,5 @@ name:          sendfile-version:       0.7.8+version:       0.7.9 stability:     provisional synopsis:      A portable sendfile library description:   A library which exposes zero-copy sendfile functionality in a portable way. If a platform does not support sendfile, a fallback implementation in haskell is provided.

@@ -3,16 +3,16 @@ module Network.Socket.SendFile.FreeBSD (_sendFile, sendFileIter, sendfile) where import Data.Int (Int64) import Foreign.C.Error (eAGAIN, eINTR, getErrno, throwErrno)-import Foreign.C.Types (CInt, CSize)+import Foreign.C.Types (CInt(..), CSize(..)) import Foreign.Marshal.Alloc (alloca) import Foreign.Ptr (Ptr, nullPtr) import Foreign.Storable (peek) import Network.Socket.SendFile.Iter (Iter(..), runIter)-import System.Posix.Types (COff, Fd)+import System.Posix.Types (COff(..), Fd(..))  -- | automatically loop and send everything _sendFile :: Fd -> Fd -> Int64 -> Int64 -> IO ()-_sendFile out_fd in_fd off count = +_sendFile out_fd in_fd off count =     do _ <- runIter (sendFileIter out_fd in_fd (fromIntegral count) (fromIntegral off) (fromIntegral count)) -- set blockSize == count. ie. send it all if we can.        return () @@ -58,7 +58,7 @@           then do nsent <- peek sbytes                   return (False, nsent)           else do errno <- getErrno-                  if (errno == eAGAIN) || (errno == eINTR) +                  if (errno == eAGAIN) || (errno == eINTR)                    then do nsent <- peek sbytes                            return (True, nsent)                    else throwErrno "Network.Socket.SendFile.FreeBSD.sendfileI"