git.iko.soy/typeable/wai
on master help sign in
defaultSendFile always uses sendfile.
d67fdb8Kazu Yamamoto
warp/Network/Wai/Handler/Warp/SendFile.hs+4−3
compare with master
unifiedsplit
@@ -25,12 +25,13 @@ import System.Posix.Types
25
25
26defaultSendFile :: Socket -> Buffer -> BufSize -> (ByteString -> IO ()) -> SendFile
26defaultSendFile :: Socket -> Buffer -> BufSize -> (ByteString -> IO ()) -> SendFile
27#ifdef SENDFILEFD
27#ifdef SENDFILEFD
28−defaultSendFile s buf siz sendall fid off len act hdr = case mfid of
28+defaultSendFile s _ _ _ fid off len act hdr = case mfid of
29 -- settingsFdCacheDuration is 0
29 -- settingsFdCacheDuration is 0
30− Nothing -> readSendFile buf siz sendall fid off len act hdr
30+ Nothing -> sendfileWithHeader s path (PartOfFile off len) act hdr
31− Just fd -> sendfileFdWithHeader s fd (PartOfFile off len) act hdr
31+ Just fd -> sendfileFdWithHeader s fd (PartOfFile off len) act hdr
32 where
32 where
33 mfid = fileIdFd fid
33 mfid = fileIdFd fid
34+ path = fileIdPath fid
34#else
35#else
35defaultSendFile _ = readSendFile
36defaultSendFile _ = readSendFile
36#endif
37#endif