- = 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
-
- writeTVar (itrBodyToSend itr)
- (S.singleton (encodeUtf8 page))
+ = do res ← readTVar itrResponse
+ when (getHeader "Content-Type" res ≡ Just defaultPageContentType)
+ $ do reqM ← readTVar itrRequest
+ let page = getDefaultPage itrConfig reqM res
+ putTMVar itrBodyToSend (BB.fromLazyText page)