$ do writeHeader ni "Content-Type" $ Just defaultPageContentType
writeHeader ni "Content-Encoding" Nothing
res ← readTVar niResponse
- let body = getDefaultPage niConfig (Just niRequest) res
+ let body = defaultPageForResponse niConfig (Just niRequest) res
putTMVar niBodyToSend body
completeUnconditionalHeaders ∷ NormalInteraction → STM ()