leiosdemo202511: integrate ouroboros-network BearerBytes

Author: nfrisby

trace-forward/src/Trace/Forward/Run/DataPoint/Acceptor.hs

@@ -54,7 +54,6 @@ runPeerWithRequestor config mkDPRequestor peerErrorHandler =
       (acceptorTracer config)
       (Acceptor.codecDataPointForward CBOR.encode CBOR.decode
                                       CBOR.encode CBOR.decode)
-      (fromIntegral . LBS.length)
       channel
       (Acceptor.dataPointAcceptorPeer $ acceptorActions config dpRequestor [])
     `finally` peerErrorHandler ctx

trace-forward/src/Trace/Forward/Run/DataPoint/Forwarder.hs

@@ -42,6 +42,5 @@ runPeerWithDPStore config dpStore =
       (forwarderTracer config)
       (Forwarder.codecDataPointForward CBOR.encode CBOR.decode
                                        CBOR.encode CBOR.decode)
-      (fromIntegral . LBS.length)
       channel
       (Forwarder.dataPointForwarderPeer $ readFromStore dpStore)

trace-forward/src/Trace/Forward/Run/TraceObject/Acceptor.hs

@@ -68,7 +68,6 @@ runPeerWithHandler config@AcceptorConfiguration{acceptorTracer, shouldWeStop} lo
           acceptorTracer
           (Acceptor.codecTraceObjectForward CBOR.encode CBOR.decode
                                             CBOR.encode CBOR.decode)
-          (fromIntegral . LBS.length)
           channel
           (Acceptor.traceObjectAcceptorPeer $ acceptorActions config (loHandler ctx))
         `finally` peerErrorHandler ctx

trace-forward/src/Trace/Forward/Run/TraceObject/Forwarder.hs

@@ -48,6 +48,5 @@ runPeerWithSink config sink =
       (forwarderTracer config)
       (Forwarder.codecTraceObjectForward CBOR.encode CBOR.decode
                                          CBOR.encode CBOR.decode)
-      (fromIntegral . LBS.length)
       channel
       (Forwarder.traceObjectForwarderPeer $ readFromSink sink)