unless (Lazy.null wholeChunk)
$ liftIO $ atomically $
- writeItr itrBodyIsNull False itr
+ writeItr itrSentNoBody False itr
where
sendChunks ∷ Lazy.ByteString → Int → Resource ()
sendChunks str limit
= postprocess itr
drift itr _ Done
- = do bodyIsNull ← readItr itrBodyIsNull id itr
+ = do bodyIsNull ← readItr itrSentNoBody id itr
when bodyIsNull
$ writeDefaultPage itr