WIP: Annotated decoder

[coot]

This is an experiment to provide runAnnotatedPeer, which is like runPeer' but allows us to run a decoder which has access to bytes used when decoding a message. This allows one to record ByteString from which a piece of data was decoded, e.g. for each txinsideMsgReplyTxs`.

The Codec type in typed-protocols was generalised for this purpose. The core functionality is implemented in
runAnnotatedDecoderWithChannel which runs AnnotatedCodec against a Channel which does incremental decoding & recording bytes used so far. We also expose runAnnotatedPeer which runs a Peer against Channel using an AnnotatedCodec (using annotatedDriverSimple).

TODO:

• runAnnotatedPeerWithLimits
• runAnnotatedPipelinedPeerWithLimits

It's actually the last one that we will need in tx-submission.

• Add

data WithBytes a {
  encoded :: ByteString,
  decoded :: a

and generalise codecTxSubmission2 so that it can be used to used with annotator and without it - it might require two separate function, but I think it can be generated from one more general function (so we don't need to maintain two codecs).

TODO: design & implement quickcheck properties

Description

reasonably detailed description of the pull request

Checklist

Quality

• Commit sequence makes sense and have useful messages, see ref.
• New tests are added and existing tests are updated.
• Self-reviewed the PR.

Maintenance

• Linked an issue or added the PR to the current sprint of ouroboros-network project.
• Added labels.
• Updated changelog files.
• The documentation has been properly updated, see ref.