import Control.Arrow.ListArrow
import Control.Arrow.Unicode
import Control.Exception
+import Data.Collections
import Data.Text (Text)
import qualified Data.Text as T
import Data.Typeable
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.Request
import Network.HTTP.Lucu.Response
-import Prelude.Unicode
import Text.XML.HXT.Arrow.WriteDocument
import Text.XML.HXT.Arrow.XmlArrow
import Text.XML.HXT.Arrow.XmlState
in
BB.fromString html
Nothing
- → 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)
+ }
in
- getDefaultPage conf reqM res''
+ getDefaultPage conf reqM res'