- do if reqVer == HttpVersion 1 1 then
-
- case getHeader res "Transfer-Encoding" of
- Nothing -> setRes itr (setHeader res "Transfer-Encoding" "chunked")
- Just te -> let teList = [trim isWhiteSpace x
- | x <- splitBy (== ',') (map toLower te)]
- in
- when (teList == [] || last teList /= "chunked")
- $ setStatus itr InternalServerError
- else
- case getHeader res "Transfer-Encoding" of
- Nothing -> return ()
- Just "identity" -> return ()
- _ -> setStatus itr InternalServerError
-
- when (getHeader res "Content-Type" == Nothing)
- $ setRes itr (setHeader res "Content-Type" "application/octet-stream")
+ when (reqVer == HttpVersion 1 1)
+ $ do updateRes itr $! setHeader "Transfer-Encoding" "chunked"
+ writeItr itr itrWillChunkBody True