- do when niWillChunkBody $
- writeHeader ni "Transfer-Encoding" (Just "chunked")
- writeDefaultPageIfNeeded ni
- else
- do writeTVar niWillDiscardBody True
- -- These headers make sense for HEAD requests even
- -- when there won't be a response entity body.