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