sendfile-0.3: src/Network/Socket/SendFile/Portable.hs

-- | Portable implementation of sendfile.
module Network.Socket.SendFile.Portable (sendFile') where

import Data.ByteString.Char8
import Prelude hiding (readFile)
import System.IO (Handle, hFlush)


-- FIXME: possibly immature / inefficient implementation
sendFile' :: Handle -> Handle -> Integer -> IO ()
sendFile' outp inp count = do
    hPutStr outp =<< hGet inp (fromIntegral count)
    hFlush outp -- match the behavior that all data is "flushed to the os" of native implementations