- Lazy.pack xmlStr
-
-writeDefaultPage ∷ Interaction → STM ()
-writeDefaultPage (Interaction {..})
- -- Content-Type が正しくなければ補完できない。
- = do res ← readTVar itrResponse
- when (getHeader "Content-Type" res ≡ Just defaultPageContentType)
- $ do let page = getDefaultPage itrConfig itrRequest res
- putTMVar itrBodyToSend (BB.fromLazyText page)
+ BB.fromString xmlStr
+
+defaultPageContentType ∷ Ascii
+{-# INLINE defaultPageContentType #-}
+defaultPageContentType = "application/xhtml+xml"