mapM_ (preprocessHeader itr) (reqHeaders req)
where
setStatus itr status
- = writeItr itr itrResponse $ Just (Response {
- resVersion = HttpVersion 1 1
- , resStatus = status
- , resHeaders = []
- })
+ = updateItr itr itrResponse
+ $ \ res -> res {
+ resStatus = status
+ }
preprocessHeader itr (name, value)
= case map toLower name of