-writeDefaultPage ∷ Interaction → STM ()
-writeDefaultPage !itr
- -- Content-Type が正しくなければ補完できない。
- = do res ← readItr itrResponse id itr
- when (getHeader "Content-Type" res == Just defaultPageContentType)
- $ do reqM ← readItr itrRequest id itr
-
- let conf = itrConfig itr
- page = getDefaultPage conf reqM res
-
- putTMVar (itrBodyToSend itr)
- (BB.fromByteString $ encodeUtf8 page)
+defaultPageContentType ∷ Ascii
+{-# INLINE defaultPageContentType #-}
+defaultPageContentType = "application/xhtml+xml"