= do willDiscardBody <- atomically $ readItr itr itrWillDiscardBody id
willChunkBody <- atomically $ readItr itr itrWillChunkBody id
when (not willDiscardBody && willChunkBody)
= do willDiscardBody <- atomically $ readItr itr itrWillDiscardBody id
willChunkBody <- atomically $ readItr itr itrWillChunkBody id
when (not willDiscardBody && willChunkBody)