- → let res' = res { resStatus = aboStatus abo }
- res'' = foldl (∘) id [setHeader name value
- | (name, value) ← fromHeaders $ aboHeaders abo] res'
+ → let res' = res {
+ resStatus = aboStatus abo
+ , resHeaders = insertMany (aboHeaders abo) (resHeaders res)
+ }