writeDefaultPage ∷ Interaction → STM ()
writeDefaultPage !itr
-- Content-Type が正しくなければ補完できない。
- = do res ← readItr itrResponse id itr
+ = do res ← readItr itrResponse itr
when (getHeader "Content-Type" res == Just defaultPageContentType)
- $ do reqM ← readItr itrRequest id itr
+ $ do reqM ← readItr itrRequest itr
let conf = itrConfig itr
page = getDefaultPage conf reqM res