- )
- return xmlStr
-
-writeDefaultPage ∷ Interaction → STM ()
-writeDefaultPage !itr
- -- Content-Type が正しくなければ補完できない。
- = do res ← readItr itr itrResponse id
- when (getHeader "Content-Type" res == Just defaultPageContentType)
- $ do reqM ← readItr itr itrRequest id
-
- let conf = itrConfig itr
- page = T.pack $ getDefaultPage conf reqM res