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