@@ -231,6 +231,10 @@ checkChunk req = httpVersion req == H.http11
231231
232232----------------------------------------------------------------
233233
234+-- Used for ResponseBuilder and ResponseSource.
235+-- Don't use this for ResponseFile since this logic does not fit
236+-- for ResponseFile. For instance, isKeepAlive should be True in some cases
237+-- even if the response header does not have Content-Length.
234238infoFromResponse :: H.ResponseHeaders -> (Bool,Bool) -> (Bool,Bool)
235239infoFromResponse hs (isPersist,isChunked) = (isKeepAlive, needsChunked)
236240 where