-- Content-Type が正しくなければ補完できない。
= do res ← readTVar itrResponse
when (getHeader "Content-Type" res ≡ Just defaultPageContentType)
- $ do reqM ← readTVar itrRequest
- let page = getDefaultPage itrConfig reqM res
+ $ do let page = getDefaultPage itrConfig itrRequest res
putTMVar itrBodyToSend (BB.fromLazyText page)
mkDefaultPage ∷ (ArrowXml a) ⇒ Config → StatusCode → a b XmlTree → a b XmlTree