@@ -192,8 +192,9 @@ sendResponse defServer conn ii req reqidxhdr src response = do
192 dc = dateCacher ii
192 dc = dateCacher ii
193 addServerAndDate = addDate dc rspidxhdr . addServer defServer rspidxhdr
193 addServerAndDate = addDate dc rspidxhdr . addServer defServer rspidxhdr
194 mRange = reqidxhdr ! idxRange
194 mRange = reqidxhdr ! idxRange
195− reqinfo@(isPersist,_) = infoFromRequest req reqidxhdr
195+ (isPersist,isChunked0) = infoFromRequest req reqidxhdr
196+ isChunked = if isHead then False else isChunked0
196− (isKeepAlive, needsChunked) = infoFromResponse rspidxhdr reqinfo
197+ (isKeepAlive, needsChunked) = infoFromResponse rspidxhdr (isPersist,isChunked)
197 isHead = requestMethod req == H.methodHead
198 isHead = requestMethod req == H.methodHead
198 rsp = case response of
199 rsp = case response of
199 ResponseFile _ _ path mPart -> RspFile path mPart mRange isHead (T.tickle th)
200 ResponseFile _ _ path mPart -> RspFile path mPart mRange isHead (T.tickle th)