`MonadIO m => Producer Builder m r -> Producer ByteString m r