- = do res ← readItr itrResponse itr
- when (getHeader "Content-Type" res == Just defaultPageContentType)
- $ do reqM ← readItr itrRequest itr
-
- let conf = itrConfig itr
- page = getDefaultPage conf reqM res
-
- putTMVar (itrBodyToSend itr) (BB.fromLazyText 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)