@@ -216,7 +216,8 @@ connSink Connection { connSendAll = send } th =
216216
217217----------------------------------------------------------------
218218
219−infoFromRequest :: Request -> IndexedHeader -> (Bool,Bool)
219+infoFromRequest :: Request -> IndexedHeader -> (Bool -- isPersist
220+ ,Bool) -- isChunked
220221infoFromRequest req reqidxhdr = (checkPersist req reqidxhdr, checkChunk req)
221222
222223checkPersist :: Request -> IndexedHeader -> Bool
@@ -242,6 +243,9 @@ checkChunk req = httpVersion req == H.http11
242243-- Don't use this for ResponseFile since this logic does not fit
243244-- for ResponseFile. For instance, isKeepAlive should be True in some cases
244245-- even if the response header does not have Content-Length.
246+--
247+-- Content-Length is specified by a reverse proxy.
248+-- Note that CGI does not specify Content-Length.
245249infoFromResponse :: IndexedHeader -> (Bool,Bool) -> (Bool,Bool)
246250infoFromResponse rspidxhdr (isPersist,isChunked) = (isKeepAlive, needsChunked)
247251 where