{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuantifiedConstraints #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

{-# OPTIONS_GHC -Wno-orphans  #-}

module Bcc.Tracing.OrphanInstances.Network () where

import           Bcc.Prelude hiding (show)
import           Prelude (String, show)

import           Control.Monad.Class.MonadTime (DiffTime, Time (..))
import           Data.Aeson (Value (..))
import qualified Data.IP as IP
import           Data.Text (pack)

import           Network.Mux (MuxTrace (..), WithMuxBearer (..))
import           Network.Socket (SockAddr (..))

import           Bcc.Tracing.ConvertTxId (ConvertTxId)
import           Bcc.Tracing.OrphanInstances.Common
import           Bcc.Tracing.Render

import           Shardagnostic.Consensus.Block (ConvertRawHash (..), Header, getHeader)
import           Shardagnostic.Consensus.Ledger.Query (BlockQuery, Query)
import           Shardagnostic.Consensus.Ledger.SupportsMempool (ApplyTxErr, GenTx, GenTxId,
                   HasTxs (..), TxId, txId)
import           Shardagnostic.Consensus.Node.Run (RunNode, estimateBlockSize)
import qualified Shardagnostic.Network.AnchoredFragment as AF
import qualified Shardagnostic.Network.AnchoredSeq as AS
import           Shardagnostic.Network.Block
import           Shardagnostic.Network.BlockFetch.ClientState (TraceFetchClientState,
                   TraceLabelPeer (..))
import qualified Shardagnostic.Network.BlockFetch.ClientState as BlockFetch
import           Shardagnostic.Network.BlockFetch.Decision (FetchDecision, FetchDecline (..))
import           Shardagnostic.Network.Codec (AnyMessageAndAgency (..), PeerHasAgency (..))
import           Shardagnostic.Network.DeltaQ (GSV (..), PeerGSV (..))
import           Shardagnostic.Network.KeepAlive (TraceKeepAliveClient (..))
import qualified Shardagnostic.Network.NodeToClient as NtC
import           Shardagnostic.Network.NodeToNode (ErrorPolicyTrace (..), TraceSendRecv (..),
                   WithAddr (..))
import qualified Shardagnostic.Network.NodeToNode as NtN
import           Shardagnostic.Network.Protocol.BlockFetch.Type (BlockFetch, Message (..))
import           Shardagnostic.Network.Protocol.ChainSync.Type (ChainSync)
import qualified Shardagnostic.Network.Protocol.ChainSync.Type as ChainSync
import           Shardagnostic.Network.Protocol.LocalStateQuery.Type (LocalStateQuery)
import qualified Shardagnostic.Network.Protocol.LocalStateQuery.Type as LocalStateQuery
import           Shardagnostic.Network.Protocol.LocalTxSubmission.Type (LocalTxSubmission)
import qualified Shardagnostic.Network.Protocol.LocalTxSubmission.Type as LocalTxSub
import           Shardagnostic.Network.Protocol.Trans.Hello.Type (ClientHasAgency (..), Message (..),
                   ServerHasAgency (..))
import           Shardagnostic.Network.Protocol.TxSubmission.Type (Message (..), TxSubmission)
import           Shardagnostic.Network.Protocol.TxSubmission2.Type (TxSubmission2)
import           Shardagnostic.Network.Snocket (LocalAddress (..))
import           Shardagnostic.Network.Subscription (ConnectResult (..), DnsTrace (..),
                   SubscriberError (..), SubscriptionTrace (..), WithDomainName (..),
                   WithIPList (..))
import           Shardagnostic.Network.TxSubmission.Inbound (ProcessedTxCount (..),
                   TraceTxSubmissionInbound (..))
import           Shardagnostic.Network.TxSubmission.Outbound (TraceTxSubmissionOutbound (..))

import qualified Shardagnostic.Network.Diffusion as ND

{- HLINT ignore "Use record patterns" -}

--
-- * instances of @HasPrivacyAnnotation@ and @HasSeverityAnnotation@
--
-- NOTE: this list is sorted by the unqualified name of the outermost type.

instance HasPrivacyAnnotation ND.DiffusionInitializationTracer
instance HasSeverityAnnotation ND.DiffusionInitializationTracer where
  getSeverityAnnotation :: DiffusionInitializationTracer -> Severity
getSeverityAnnotation DiffusionInitializationTracer
_ = Severity
Info

instance HasPrivacyAnnotation NtC.HandshakeTr
instance HasSeverityAnnotation NtC.HandshakeTr where
  getSeverityAnnotation :: HandshakeTr -> Severity
getSeverityAnnotation HandshakeTr
_ = Severity
Info


instance HasPrivacyAnnotation NtN.HandshakeTr
instance HasSeverityAnnotation NtN.HandshakeTr where
  getSeverityAnnotation :: HandshakeTr -> Severity
getSeverityAnnotation HandshakeTr
_ = Severity
Info


instance HasPrivacyAnnotation NtN.AcceptConnectionsPolicyTrace
instance HasSeverityAnnotation NtN.AcceptConnectionsPolicyTrace where
  getSeverityAnnotation :: AcceptConnectionsPolicyTrace -> Severity
getSeverityAnnotation NtN.ServerTraceAcceptConnectionRateLimiting {} = Severity
Info
  getSeverityAnnotation NtN.ServerTraceAcceptConnectionHardLimit {} = Severity
Warning
  getSeverityAnnotation NtN.ServerTraceAcceptConnectionResume {} = Severity
Info


instance HasPrivacyAnnotation (TraceFetchClientState header)
instance HasSeverityAnnotation (TraceFetchClientState header) where
  getSeverityAnnotation :: TraceFetchClientState header -> Severity
getSeverityAnnotation BlockFetch.AddedFetchRequest {} = Severity
Info
  getSeverityAnnotation BlockFetch.SendFetchRequest {} = Severity
Info
  getSeverityAnnotation BlockFetch.AcknowledgedFetchRequest {} = Severity
Info
  getSeverityAnnotation BlockFetch.StartedFetchBatch {} = Severity
Info
  getSeverityAnnotation BlockFetch.CompletedBlockFetch {} = Severity
Info
  getSeverityAnnotation BlockFetch.CompletedFetchBatch {} = Severity
Info
  getSeverityAnnotation BlockFetch.RejectedFetchBatch {} = Severity
Info
  getSeverityAnnotation BlockFetch.ClientTerminating {} = Severity
Notice


instance HasPrivacyAnnotation (TraceSendRecv a)
instance HasSeverityAnnotation (TraceSendRecv a) where
  getSeverityAnnotation :: TraceSendRecv a -> Severity
getSeverityAnnotation TraceSendRecv a
_ = Severity
Debug


instance HasPrivacyAnnotation a => HasPrivacyAnnotation (TraceLabelPeer peer a)
instance HasSeverityAnnotation a => HasSeverityAnnotation (TraceLabelPeer peer a) where
  getSeverityAnnotation :: TraceLabelPeer peer a -> Severity
getSeverityAnnotation (TraceLabelPeer peer
_p a
a) = a -> Severity
forall a. HasSeverityAnnotation a => a -> Severity
getSeverityAnnotation a
a


instance HasPrivacyAnnotation [TraceLabelPeer peer (FetchDecision [Point header])]
instance HasSeverityAnnotation [TraceLabelPeer peer (FetchDecision [Point header])] where
  getSeverityAnnotation :: [TraceLabelPeer peer (FetchDecision [Point header])] -> Severity
getSeverityAnnotation [] = Severity
Debug
  getSeverityAnnotation [TraceLabelPeer peer (FetchDecision [Point header])]
xs =
      [Severity] -> Severity
forall (t :: * -> *) a. (Foldable t, Ord a) => t a -> a
maximum ([Severity] -> Severity) -> [Severity] -> Severity
forall a b. (a -> b) -> a -> b
$ (TraceLabelPeer peer (FetchDecision [Point header]) -> Severity)
-> [TraceLabelPeer peer (FetchDecision [Point header])]
-> [Severity]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
map (\(TraceLabelPeer peer
_ FetchDecision [Point header]
a) -> FetchDecision [Point header] -> Severity
forall a. FetchDecision a -> Severity
fetchDecisionSeverity FetchDecision [Point header]
a) [TraceLabelPeer peer (FetchDecision [Point header])]
xs
    where
      fetchDecisionSeverity :: FetchDecision a -> Severity
      fetchDecisionSeverity :: FetchDecision a -> Severity
fetchDecisionSeverity FetchDecision a
fd =
        case FetchDecision a
fd of
          Left FetchDecline
FetchDeclineChainNotPlausible     -> Severity
Debug
          Left FetchDecline
FetchDeclineChainNoIntersection   -> Severity
Notice
          Left FetchDecline
FetchDeclineAlreadyFetched        -> Severity
Debug
          Left FetchDecline
FetchDeclineInFlightThisPeer      -> Severity
Debug
          Left FetchDecline
FetchDeclineInFlightOtherPeer     -> Severity
Debug
          Left FetchDecline
FetchDeclinePeerShutdown          -> Severity
Info
          Left FetchDecline
FetchDeclinePeerSlow              -> Severity
Info
          Left FetchDeclineReqsInFlightLimit {}  -> Severity
Info
          Left FetchDeclineBytesInFlightLimit {} -> Severity
Info
          Left FetchDeclinePeerBusy {}           -> Severity
Info
          Left FetchDeclineConcurrencyLimit {}   -> Severity
Info
          Right a
_                                -> Severity
Info


instance HasPrivacyAnnotation (TraceTxSubmissionInbound txid tx)
instance HasSeverityAnnotation (TraceTxSubmissionInbound txid tx) where
  getSeverityAnnotation :: TraceTxSubmissionInbound txid tx -> Severity
getSeverityAnnotation TraceTxSubmissionInbound txid tx
_ = Severity
Info


instance HasPrivacyAnnotation (TraceTxSubmissionOutbound txid tx)
instance HasSeverityAnnotation (TraceTxSubmissionOutbound txid tx) where
  getSeverityAnnotation :: TraceTxSubmissionOutbound txid tx -> Severity
getSeverityAnnotation TraceTxSubmissionOutbound txid tx
_ = Severity
Info


instance HasPrivacyAnnotation (TraceKeepAliveClient remotePeer)
instance HasSeverityAnnotation (TraceKeepAliveClient remotePeer) where
  getSeverityAnnotation :: TraceKeepAliveClient remotePeer -> Severity
getSeverityAnnotation TraceKeepAliveClient remotePeer
_ = Severity
Info


instance HasPrivacyAnnotation (WithAddr addr ErrorPolicyTrace)
instance HasSeverityAnnotation (WithAddr addr ErrorPolicyTrace) where
  getSeverityAnnotation :: WithAddr addr ErrorPolicyTrace -> Severity
getSeverityAnnotation (WithAddr addr
_ ErrorPolicyTrace
ev) = case ErrorPolicyTrace
ev of
    ErrorPolicySuspendPeer {} -> Severity
Warning -- peer misbehaved
    ErrorPolicySuspendConsumer {} -> Severity
Notice -- peer temporarily not useful
    ErrorPolicyLocalNodeError {} -> Severity
Error
    ErrorPolicyResumePeer {} -> Severity
Debug
    ErrorPolicyKeepSuspended {} -> Severity
Debug
    ErrorPolicyResumeConsumer {} -> Severity
Debug
    ErrorPolicyResumeProducer {} -> Severity
Debug
    ErrorPolicyUnhandledApplicationException {} -> Severity
Error
    ErrorPolicyUnhandledConnectionException {} -> Severity
Error
    ErrorPolicyAcceptException {} -> Severity
Error


instance HasPrivacyAnnotation (WithDomainName DnsTrace)
instance HasSeverityAnnotation (WithDomainName DnsTrace) where
  getSeverityAnnotation :: WithDomainName DnsTrace -> Severity
getSeverityAnnotation (WithDomainName Domain
_ DnsTrace
ev) = case DnsTrace
ev of
    DnsTraceLookupException {} -> Severity
Error
    DnsTraceLookupAError {} -> Severity
Error
    DnsTraceLookupAAAAError {} -> Severity
Error
    DnsTrace
DnsTraceLookupIPv6First -> Severity
Debug
    DnsTrace
DnsTraceLookupIPv4First -> Severity
Debug
    DnsTraceLookupAResult {} -> Severity
Debug
    DnsTraceLookupAAAAResult {} -> Severity
Debug


instance HasPrivacyAnnotation (WithDomainName (SubscriptionTrace SockAddr))
instance HasSeverityAnnotation (WithDomainName (SubscriptionTrace SockAddr)) where
  getSeverityAnnotation :: WithDomainName (SubscriptionTrace SockAddr) -> Severity
getSeverityAnnotation (WithDomainName Domain
_ SubscriptionTrace SockAddr
ev) = case SubscriptionTrace SockAddr
ev of
    SubscriptionTraceConnectStart {} -> Severity
Notice
    SubscriptionTraceConnectEnd {} -> Severity
Notice
    SubscriptionTraceConnectException SockAddr
_ e
e ->
        case SomeException -> Maybe SubscriberError
forall e. Exception e => SomeException -> Maybe e
fromException (SomeException -> Maybe SubscriberError)
-> SomeException -> Maybe SubscriberError
forall a b. (a -> b) -> a -> b
$ e -> SomeException
forall e. Exception e => e -> SomeException
SomeException e
e of
             Just (SubscriberError
_::SubscriberError) -> Severity
Debug
             Maybe SubscriberError
Nothing -> Severity
Error
    SubscriptionTraceSocketAllocationException {} -> Severity
Error
    SubscriptionTraceTryConnectToPeer {} -> Severity
Info
    SubscriptionTraceSkippingPeer {} -> Severity
Info
    SubscriptionTrace SockAddr
SubscriptionTraceSubscriptionRunning -> Severity
Debug
    SubscriptionTraceSubscriptionWaiting {} -> Severity
Debug
    SubscriptionTrace SockAddr
SubscriptionTraceSubscriptionFailed -> Severity
Warning
    SubscriptionTraceSubscriptionWaitingNewConnection {} -> Severity
Debug
    SubscriptionTraceStart {} -> Severity
Debug
    SubscriptionTraceRestart {} -> Severity
Debug
    SubscriptionTraceConnectionExist {} -> Severity
Info
    SubscriptionTraceUnsupportedRemoteAddr {} -> Severity
Warning
    SubscriptionTrace SockAddr
SubscriptionTraceMissingLocalAddress -> Severity
Warning
    SubscriptionTraceApplicationException SockAddr
_ e
e ->
        case SomeException -> Maybe SubscriberError
forall e. Exception e => SomeException -> Maybe e
fromException (SomeException -> Maybe SubscriberError)
-> SomeException -> Maybe SubscriberError
forall a b. (a -> b) -> a -> b
$ e -> SomeException
forall e. Exception e => e -> SomeException
SomeException e
e of
             Just (SubscriberError
_::SubscriberError) -> Severity
Debug
             Maybe SubscriberError
Nothing -> Severity
Error
    SubscriptionTraceAllocateSocket {} -> Severity
Debug
    SubscriptionTraceCloseSocket {} -> Severity
Debug


instance HasPrivacyAnnotation (WithIPList (SubscriptionTrace SockAddr))
instance HasSeverityAnnotation (WithIPList (SubscriptionTrace SockAddr)) where
  getSeverityAnnotation :: WithIPList (SubscriptionTrace SockAddr) -> Severity
getSeverityAnnotation (WithIPList LocalAddresses SockAddr
_ [SockAddr]
_ SubscriptionTrace SockAddr
ev) = case SubscriptionTrace SockAddr
ev of
    SubscriptionTraceConnectStart SockAddr
_ -> Severity
Info
    SubscriptionTraceConnectEnd SockAddr
_ ConnectResult
connectResult -> case ConnectResult
connectResult of
      ConnectResult
ConnectSuccess -> Severity
Info
      ConnectResult
ConnectSuccessLast -> Severity
Notice
      ConnectResult
ConnectValencyExceeded -> Severity
Warning
    SubscriptionTraceConnectException SockAddr
_ e
e ->
        case SomeException -> Maybe SubscriberError
forall e. Exception e => SomeException -> Maybe e
fromException (SomeException -> Maybe SubscriberError)
-> SomeException -> Maybe SubscriberError
forall a b. (a -> b) -> a -> b
$ e -> SomeException
forall e. Exception e => e -> SomeException
SomeException e
e of
             Just (SubscriberError
_::SubscriberError) -> Severity
Debug
             Maybe SubscriberError
Nothing -> Severity
Error
    SubscriptionTraceSocketAllocationException {} -> Severity
Error
    SubscriptionTraceTryConnectToPeer {} -> Severity
Info
    SubscriptionTraceSkippingPeer {} -> Severity
Info
    SubscriptionTrace SockAddr
SubscriptionTraceSubscriptionRunning -> Severity
Debug
    SubscriptionTraceSubscriptionWaiting {} -> Severity
Debug
    SubscriptionTrace SockAddr
SubscriptionTraceSubscriptionFailed -> Severity
Error
    SubscriptionTraceSubscriptionWaitingNewConnection {} -> Severity
Notice
    SubscriptionTraceStart {} -> Severity
Debug
    SubscriptionTraceRestart {} -> Severity
Info
    SubscriptionTraceConnectionExist {} -> Severity
Notice
    SubscriptionTraceUnsupportedRemoteAddr {} -> Severity
Error
    SubscriptionTrace SockAddr
SubscriptionTraceMissingLocalAddress -> Severity
Warning
    SubscriptionTraceApplicationException SockAddr
_ e
e ->
        case SomeException -> Maybe SubscriberError
forall e. Exception e => SomeException -> Maybe e
fromException (SomeException -> Maybe SubscriberError)
-> SomeException -> Maybe SubscriberError
forall a b. (a -> b) -> a -> b
$ e -> SomeException
forall e. Exception e => e -> SomeException
SomeException e
e of
             Just (SubscriberError
_::SubscriberError) -> Severity
Debug
             Maybe SubscriberError
Nothing -> Severity
Error
    SubscriptionTraceAllocateSocket {} -> Severity
Debug
    SubscriptionTraceCloseSocket {} -> Severity
Info


instance HasPrivacyAnnotation (Identity (SubscriptionTrace LocalAddress))
instance HasSeverityAnnotation (Identity (SubscriptionTrace LocalAddress)) where
  getSeverityAnnotation :: Identity (SubscriptionTrace LocalAddress) -> Severity
getSeverityAnnotation (Identity SubscriptionTrace LocalAddress
ev) = case SubscriptionTrace LocalAddress
ev of
    SubscriptionTraceConnectStart {} -> Severity
Notice
    SubscriptionTraceConnectEnd {} -> Severity
Notice
    SubscriptionTraceConnectException {} -> Severity
Error
    SubscriptionTraceSocketAllocationException {} -> Severity
Error
    SubscriptionTraceTryConnectToPeer {} -> Severity
Notice
    SubscriptionTraceSkippingPeer {} -> Severity
Info
    SubscriptionTrace LocalAddress
SubscriptionTraceSubscriptionRunning -> Severity
Notice
    SubscriptionTraceSubscriptionWaiting {} -> Severity
Debug
    SubscriptionTrace LocalAddress
SubscriptionTraceSubscriptionFailed -> Severity
Warning
    SubscriptionTraceSubscriptionWaitingNewConnection {} -> Severity
Debug
    SubscriptionTraceStart {} -> Severity
Notice
    SubscriptionTraceRestart {} -> Severity
Notice
    SubscriptionTraceConnectionExist {} -> Severity
Debug
    SubscriptionTraceUnsupportedRemoteAddr {} -> Severity
Warning
    SubscriptionTrace LocalAddress
SubscriptionTraceMissingLocalAddress -> Severity
Warning
    SubscriptionTraceApplicationException {} -> Severity
Error
    SubscriptionTraceAllocateSocket {} -> Severity
Debug
    SubscriptionTraceCloseSocket {} -> Severity
Debug


instance Transformable Text IO (Identity (SubscriptionTrace LocalAddress)) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer IO (Identity (SubscriptionTrace LocalAddress))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer IO (Identity (SubscriptionTrace LocalAddress))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter (Identity (SubscriptionTrace LocalAddress)) where
  formatText :: Identity (SubscriptionTrace LocalAddress) -> Object -> Text
formatText Identity (SubscriptionTrace LocalAddress)
a Object
_ = String -> Text
pack (Identity (SubscriptionTrace LocalAddress) -> String
forall a. Show a => a -> String
show Identity (SubscriptionTrace LocalAddress)
a)


instance ToObject (Identity (SubscriptionTrace LocalAddress)) where
  toObject :: TracingVerbosity
-> Identity (SubscriptionTrace LocalAddress) -> Object
toObject TracingVerbosity
_verb (Identity SubscriptionTrace LocalAddress
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (String
"SubscriptionTrace" :: String)
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SubscriptionTrace LocalAddress -> String
forall a. Show a => a -> String
show SubscriptionTrace LocalAddress
ev
             ]


instance HasPrivacyAnnotation (WithMuxBearer peer MuxTrace)
instance HasSeverityAnnotation (WithMuxBearer peer MuxTrace) where
  getSeverityAnnotation :: WithMuxBearer peer MuxTrace -> Severity
getSeverityAnnotation (WithMuxBearer peer
_ MuxTrace
ev) = case MuxTrace
ev of
    MuxTrace
MuxTraceRecvHeaderStart -> Severity
Debug
    MuxTraceRecvHeaderEnd {} -> Severity
Debug
    MuxTraceRecvStart {} -> Severity
Debug
    MuxTraceRecvEnd {} -> Severity
Debug
    MuxTraceSendStart {} -> Severity
Debug
    MuxTrace
MuxTraceSendEnd -> Severity
Debug
    MuxTraceState {} -> Severity
Info
    MuxTraceCleanExit {} -> Severity
Notice
    MuxTraceExceptionExit {} -> Severity
Notice
    MuxTraceChannelRecvStart {} -> Severity
Debug
    MuxTraceChannelRecvEnd {} -> Severity
Debug
    MuxTraceChannelSendStart {} -> Severity
Debug
    MuxTraceChannelSendEnd {} -> Severity
Debug
    MuxTrace
MuxTraceHandshakeStart -> Severity
Debug
    MuxTraceHandshakeClientEnd {} -> Severity
Info
    MuxTrace
MuxTraceHandshakeServerEnd -> Severity
Debug
    MuxTraceHandshakeClientError {} -> Severity
Error
    MuxTraceHandshakeServerError {} -> Severity
Error
    MuxTraceRecvDeltaQObservation {} -> Severity
Debug
    MuxTraceRecvDeltaQSample {} -> Severity
Debug
    MuxTrace
MuxTraceSDUReadTimeoutException -> Severity
Notice
    MuxTrace
MuxTraceSDUWriteTimeoutException -> Severity
Notice
    MuxTraceStartEagerly MiniProtocolNum
_ MiniProtocolDir
_ -> Severity
Debug
    MuxTraceStartOnDemand MiniProtocolNum
_ MiniProtocolDir
_ -> Severity
Debug
    MuxTraceStartedOnDemand MiniProtocolNum
_ MiniProtocolDir
_ -> Severity
Debug
    MuxTraceTerminating {} -> Severity
Debug
    MuxTrace
MuxTraceShutdown -> Severity
Debug

--
-- | instances of @Transformable@
--
-- NOTE: this list is sorted by the unqualified name of the outermost type.

instance Transformable Text IO ND.DiffusionInitializationTracer where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO DiffusionInitializationTracer
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO DiffusionInitializationTracer
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter ND.DiffusionInitializationTracer where
  formatText :: DiffusionInitializationTracer -> Object -> Text
formatText DiffusionInitializationTracer
a Object
_ = String -> Text
pack (DiffusionInitializationTracer -> String
forall a. Show a => a -> String
show DiffusionInitializationTracer
a)

instance Transformable Text IO NtN.HandshakeTr where
  trTransformer :: TracingVerbosity -> Trace IO Text -> Tracer IO HandshakeTr
trTransformer = TracingVerbosity -> Trace IO Text -> Tracer IO HandshakeTr
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter NtN.HandshakeTr where
  formatText :: HandshakeTr -> Object -> Text
formatText HandshakeTr
a Object
_ = String -> Text
pack (HandshakeTr -> String
forall a. Show a => a -> String
show HandshakeTr
a)


instance Transformable Text IO NtC.HandshakeTr where
  trTransformer :: TracingVerbosity -> Trace IO Text -> Tracer IO HandshakeTr
trTransformer = TracingVerbosity -> Trace IO Text -> Tracer IO HandshakeTr
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter NtC.HandshakeTr where
  formatText :: HandshakeTr -> Object -> Text
formatText HandshakeTr
a Object
_ = String -> Text
pack (HandshakeTr -> String
forall a. Show a => a -> String
show HandshakeTr
a)


instance Transformable Text IO NtN.AcceptConnectionsPolicyTrace where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO AcceptConnectionsPolicyTrace
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO AcceptConnectionsPolicyTrace
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter NtN.AcceptConnectionsPolicyTrace where
  formatText :: AcceptConnectionsPolicyTrace -> Object -> Text
formatText AcceptConnectionsPolicyTrace
a Object
_ = String -> Text
pack (AcceptConnectionsPolicyTrace -> String
forall a. Show a => a -> String
show AcceptConnectionsPolicyTrace
a)


instance (StandardHash header, Show peer, ToObject peer)
      => Transformable Text IO [TraceLabelPeer peer (FetchDecision [Point header])] where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer IO [TraceLabelPeer peer (FetchDecision [Point header])]
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer IO [TraceLabelPeer peer (FetchDecision [Point header])]
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance (StandardHash header, Show peer)
      => HasTextFormatter [TraceLabelPeer peer (FetchDecision [Point header])] where
  formatText :: [TraceLabelPeer peer (FetchDecision [Point header])]
-> Object -> Text
formatText [TraceLabelPeer peer (FetchDecision [Point header])]
a Object
_ = String -> Text
pack ([TraceLabelPeer peer (FetchDecision [Point header])] -> String
forall a. Show a => a -> String
show [TraceLabelPeer peer (FetchDecision [Point header])]
a)

instance (HasHeader header, ConvertRawHash header, ToObject peer)
     => Transformable Text IO (TraceLabelPeer peer (TraceFetchClientState header)) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer IO (TraceLabelPeer peer (TraceFetchClientState header))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer IO (TraceLabelPeer peer (TraceFetchClientState header))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured
instance (Show header, StandardHash header, Show peer)
     => HasTextFormatter (TraceLabelPeer peer (TraceFetchClientState header)) where
  formatText :: TraceLabelPeer peer (TraceFetchClientState header)
-> Object -> Text
formatText TraceLabelPeer peer (TraceFetchClientState header)
a Object
_ = String -> Text
pack (TraceLabelPeer peer (TraceFetchClientState header) -> String
forall a. Show a => a -> String
show TraceLabelPeer peer (TraceFetchClientState header)
a)

instance ToObject peer
     => Transformable Text IO (TraceLabelPeer peer (NtN.TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer
        (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer
        (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured
instance (Show peer, StandardHash blk, Show (Header blk))
     => HasTextFormatter (TraceLabelPeer peer (NtN.TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))) where
  formatText :: TraceLabelPeer
  peer (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))
-> Object -> Text
formatText TraceLabelPeer
  peer (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))
a Object
_ = String -> Text
pack (TraceLabelPeer
  peer (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))
-> String
forall a. Show a => a -> String
show TraceLabelPeer
  peer (TraceSendRecv (ChainSync (Header blk) (Point blk) (Tip blk)))
a)

instance (ToObject peer, ToObject (AnyMessageAndAgency (TraceTxSubmissionInbound (GenTxId blk) (GenTx blk))))
     => Transformable Text IO (TraceLabelPeer peer (NtN.TraceSendRecv (TraceTxSubmissionInbound  (GenTxId blk) (GenTx blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer
        (TraceSendRecv
           (TraceTxSubmissionInbound (GenTxId blk) (GenTx blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer
        (TraceSendRecv
           (TraceTxSubmissionInbound (GenTxId blk) (GenTx blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance ToObject peer
     => Transformable Text IO (TraceLabelPeer peer (TraceTxSubmissionInbound  (GenTxId blk) (GenTx blk))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceTxSubmissionInbound (GenTxId blk) (GenTx blk)))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceTxSubmissionInbound (GenTxId blk) (GenTx blk)))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (ToObject peer, ConvertTxId blk, RunNode blk, HasTxs blk)
     => Transformable Text IO (TraceLabelPeer peer (NtN.TraceSendRecv (BlockFetch blk (Point blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer peer (TraceSendRecv (BlockFetch blk (Point blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer peer (TraceSendRecv (BlockFetch blk (Point blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance ToObject localPeer
     => Transformable Text IO (TraceLabelPeer localPeer (NtN.TraceSendRecv (ChainSync (Serialised blk) (Point blk) (Tip blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (ChainSync (Serialised blk) (Point blk) (Tip blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (ChainSync (Serialised blk) (Point blk) (Tip blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (applyTxErr ~ ApplyTxErr blk, ToObject localPeer)
     => Transformable Text IO (TraceLabelPeer localPeer (NtN.TraceSendRecv (LocalTxSubmission (GenTx blk) applyTxErr))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (LocalTxSubmission (GenTx blk) applyTxErr)))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (LocalTxSubmission (GenTx blk) applyTxErr)))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (LocalStateQuery.ShowQuery (BlockQuery blk), ToObject localPeer)
     => Transformable Text IO (TraceLabelPeer localPeer (NtN.TraceSendRecv (LocalStateQuery blk (Point blk) (Query blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (LocalStateQuery blk (Point blk) (Query blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        localPeer
        (TraceSendRecv (LocalStateQuery blk (Point blk) (Query blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (ToObject peer, Show (TxId (GenTx blk)), Show (GenTx blk))
     => Transformable Text IO (TraceLabelPeer peer (NtN.TraceSendRecv (TxSubmission2 (GenTxId blk) (GenTx blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceSendRecv (TxSubmission2 (GenTxId blk) (GenTx blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceSendRecv (TxSubmission2 (GenTxId blk) (GenTx blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (ToObject peer, Show (TxId (GenTx blk)), Show (GenTx blk))
  => Transformable Text IO (TraceLabelPeer peer (NtN.TraceSendRecv (TxSubmission (GenTxId blk) (GenTx blk)))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceSendRecv (TxSubmission (GenTxId blk) (GenTx blk))))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceSendRecv (TxSubmission (GenTxId blk) (GenTx blk))))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance (ToObject peer, Show (TxId (GenTx blk)), Show (GenTx blk))
     => Transformable Text IO (TraceLabelPeer peer (TraceTxSubmissionOutbound (GenTxId blk) (GenTx blk))) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceTxSubmissionOutbound (GenTxId blk) (GenTx blk)))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer
     IO
     (TraceLabelPeer
        peer (TraceTxSubmissionOutbound (GenTxId blk) (GenTx blk)))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructured

instance Transformable Text IO (TraceTxSubmissionInbound txid tx) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceTxSubmissionInbound txid tx)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceTxSubmissionInbound txid tx)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter (TraceTxSubmissionInbound txid tx) where
  formatText :: TraceTxSubmissionInbound txid tx -> Object -> Text
formatText TraceTxSubmissionInbound txid tx
a Object
_ = String -> Text
pack (TraceTxSubmissionInbound txid tx -> String
forall a. Show a => a -> String
show TraceTxSubmissionInbound txid tx
a)


instance (Show tx, Show txid)
      => Transformable Text IO (TraceTxSubmissionOutbound txid tx) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceTxSubmissionOutbound txid tx)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceTxSubmissionOutbound txid tx)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance (Show tx, Show txid)
      => HasTextFormatter (TraceTxSubmissionOutbound txid tx) where
  formatText :: TraceTxSubmissionOutbound txid tx -> Object -> Text
formatText TraceTxSubmissionOutbound txid tx
a Object
_ = String -> Text
pack (TraceTxSubmissionOutbound txid tx -> String
forall a. Show a => a -> String
show TraceTxSubmissionOutbound txid tx
a)


instance Show remotePeer => Transformable Text IO (TraceKeepAliveClient remotePeer) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceKeepAliveClient remotePeer)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (TraceKeepAliveClient remotePeer)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance Show addr
      => HasTextFormatter (TraceKeepAliveClient addr) where
    formatText :: TraceKeepAliveClient addr -> Object -> Text
formatText TraceKeepAliveClient addr
a Object
_ = String -> Text
pack (TraceKeepAliveClient addr -> String
forall a. Show a => a -> String
show TraceKeepAliveClient addr
a)


instance Show addr => Transformable Text IO (WithAddr addr ErrorPolicyTrace) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (WithAddr addr ErrorPolicyTrace)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (WithAddr addr ErrorPolicyTrace)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance Show addr => HasTextFormatter (WithAddr addr ErrorPolicyTrace) where
  formatText :: WithAddr addr ErrorPolicyTrace -> Object -> Text
formatText WithAddr addr ErrorPolicyTrace
a Object
_ = String -> Text
pack (WithAddr addr ErrorPolicyTrace -> String
forall a. Show a => a -> String
show WithAddr addr ErrorPolicyTrace
a)


instance Transformable Text IO (WithDomainName (SubscriptionTrace SockAddr)) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer IO (WithDomainName (SubscriptionTrace SockAddr))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer IO (WithDomainName (SubscriptionTrace SockAddr))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter (WithDomainName (SubscriptionTrace SockAddr)) where
  formatText :: WithDomainName (SubscriptionTrace SockAddr) -> Object -> Text
formatText WithDomainName (SubscriptionTrace SockAddr)
a Object
_ = String -> Text
pack (WithDomainName (SubscriptionTrace SockAddr) -> String
forall a. Show a => a -> String
show WithDomainName (SubscriptionTrace SockAddr)
a)


instance Transformable Text IO (WithDomainName DnsTrace) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (WithDomainName DnsTrace)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (WithDomainName DnsTrace)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter (WithDomainName DnsTrace) where
  formatText :: WithDomainName DnsTrace -> Object -> Text
formatText WithDomainName DnsTrace
a Object
_ = String -> Text
pack (WithDomainName DnsTrace -> String
forall a. Show a => a -> String
show WithDomainName DnsTrace
a)


instance Transformable Text IO (WithIPList (SubscriptionTrace SockAddr)) where
  trTransformer :: TracingVerbosity
-> Trace IO Text
-> Tracer IO (WithIPList (SubscriptionTrace SockAddr))
trTransformer = TracingVerbosity
-> Trace IO Text
-> Tracer IO (WithIPList (SubscriptionTrace SockAddr))
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance HasTextFormatter (WithIPList (SubscriptionTrace SockAddr)) where
  formatText :: WithIPList (SubscriptionTrace SockAddr) -> Object -> Text
formatText WithIPList (SubscriptionTrace SockAddr)
a Object
_ = String -> Text
pack (WithIPList (SubscriptionTrace SockAddr) -> String
forall a. Show a => a -> String
show WithIPList (SubscriptionTrace SockAddr)
a)


instance (Show peer)
      => Transformable Text IO (WithMuxBearer peer MuxTrace) where
  trTransformer :: TracingVerbosity
-> Trace IO Text -> Tracer IO (WithMuxBearer peer MuxTrace)
trTransformer = TracingVerbosity
-> Trace IO Text -> Tracer IO (WithMuxBearer peer MuxTrace)
forall b (m :: * -> *) a.
(ToObject b, MonadIO m, HasTextFormatter b, HasPrivacyAnnotation b,
 HasSeverityAnnotation b) =>
TracingVerbosity -> Trace m a -> Tracer m b
trStructuredText
instance (Show peer)
      => HasTextFormatter (WithMuxBearer peer MuxTrace) where
  formatText :: WithMuxBearer peer MuxTrace -> Object -> Text
formatText (WithMuxBearer peer
peer MuxTrace
ev) = \Object
_o ->
        Text
"Bearer on " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
pack (peer -> String
forall a. Show a => a -> String
show peer
peer)
     Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
" event: " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> String -> Text
pack (MuxTrace -> String
forall a. Show a => a -> String
show MuxTrace
ev)


--
-- | instances of @ToObject@
--
-- NOTE: this list is sorted by the unqualified name of the outermost type.

instance ( ConvertTxId blk
         , RunNode blk
         , HasTxs blk
         )
      => ToObject (AnyMessageAndAgency (BlockFetch blk (Point blk))) where
  toObject :: TracingVerbosity
-> AnyMessageAndAgency (BlockFetch blk (Point blk)) -> Object
toObject TracingVerbosity
MinimalVerbosity (AnyMessageAndAgency PeerHasAgency pr st
stok (MsgBlock blk)) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgBlock"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             , Text
"blockHash" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Proxy blk -> HeaderHash blk -> Text
forall blk (proxy :: * -> *).
ConvertRawHash blk =>
proxy blk -> HeaderHash blk -> Text
renderHeaderHash (Proxy blk
forall k (t :: k). Proxy t
Proxy @blk) (block1 -> HeaderHash block1
forall b. HasHeader b => b -> HeaderHash b
blockHash block1
blk)
             , Text
"blockSize" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SizeInBytes -> Value
forall a. ToJSON a => a -> Value
toJSON (Header block1 -> SizeInBytes
forall blk.
SerialiseNodeToNodeConstraints blk =>
Header blk -> SizeInBytes
estimateBlockSize (block1 -> Header block1
forall blk. GetHeader blk => blk -> Header blk
getHeader block1
blk))
             ]

  toObject TracingVerbosity
verb (AnyMessageAndAgency PeerHasAgency pr st
stok (MsgBlock blk)) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgBlock"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             , Text
"blockHash" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Proxy blk -> HeaderHash blk -> Text
forall blk (proxy :: * -> *).
ConvertRawHash blk =>
proxy blk -> HeaderHash blk -> Text
renderHeaderHash (Proxy blk
forall k (t :: k). Proxy t
Proxy @blk) (block1 -> HeaderHash block1
forall b. HasHeader b => b -> HeaderHash b
blockHash block1
blk)
             , Text
"blockSize" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SizeInBytes -> Value
forall a. ToJSON a => a -> Value
toJSON (Header block1 -> SizeInBytes
forall blk.
SerialiseNodeToNodeConstraints blk =>
Header blk -> SizeInBytes
estimateBlockSize (block1 -> Header block1
forall blk. GetHeader blk => blk -> Header blk
getHeader block1
blk))
             , Text
"txIds" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [Value] -> Value
forall a. ToJSON a => a -> Value
toJSON (GenTx blk -> Value
presentTx (GenTx blk -> Value) -> [GenTx blk] -> [Value]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> block1 -> [GenTx block1]
forall blk. HasTxs blk => blk -> [GenTx blk]
extractTxs block1
blk)
             ]
      where
        presentTx :: GenTx blk -> Value
        presentTx :: GenTx blk -> Value
presentTx =  Text -> Value
String (Text -> Value) -> (GenTx blk -> Text) -> GenTx blk -> Value
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. TracingVerbosity -> TxId (GenTx blk) -> Text
forall blk.
ConvertTxId blk =>
TracingVerbosity -> TxId (GenTx blk) -> Text
renderTxIdForVerbosity TracingVerbosity
verb (TxId (GenTx blk) -> Text)
-> (GenTx blk -> TxId (GenTx blk)) -> GenTx blk -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. GenTx blk -> TxId (GenTx blk)
forall tx. HasTxId tx => tx -> TxId tx
txId

  toObject TracingVerbosity
_v (AnyMessageAndAgency PeerHasAgency pr st
stok MsgRequestRange{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRequestRange"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_v (AnyMessageAndAgency PeerHasAgency pr st
stok MsgStartBatch{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgStartBatch"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_v (AnyMessageAndAgency PeerHasAgency pr st
stok MsgNoBlocks{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgNoBlocks"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_v (AnyMessageAndAgency PeerHasAgency pr st
stok MsgBatchDone{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgBatchDone"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_v (AnyMessageAndAgency PeerHasAgency pr st
stok MsgClientDone{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgClientDone"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]

instance (forall result. Show (query result))
      => ToObject (AnyMessageAndAgency (LocalStateQuery blk pt query)) where
  toObject :: TracingVerbosity
-> AnyMessageAndAgency (LocalStateQuery blk pt query) -> Object
toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgAcquire{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgAcquire"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgAcquired{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgAcquired"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgFailure{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgFailure"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgQuery{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgQuery"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgResult{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgResult"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgRelease{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRelease"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgReAcquire{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgReAcquire"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalStateQuery.MsgDone{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgDone"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]

instance ToObject (AnyMessageAndAgency (LocalTxSubmission tx err)) where
  toObject :: TracingVerbosity
-> AnyMessageAndAgency (LocalTxSubmission tx err) -> Object
toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalTxSub.MsgSubmitTx{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgSubmitTx"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalTxSub.MsgAcceptTx{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgAcceptTx"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalTxSub.MsgRejectTx{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRejectTx"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok LocalTxSub.MsgDone{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgDone"
             , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
             ]

instance ToObject (AnyMessageAndAgency (ChainSync blk pt tip)) where
   toObject :: TracingVerbosity
-> AnyMessageAndAgency (ChainSync blk pt tip) -> Object
toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgRequestNext{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRequestNext"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgAwaitReply{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgAwaitReply"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgRollForward{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRollForward"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgRollBackward{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRollBackward"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgFindIntersect{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgFindIntersect"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgIntersectFound{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgIntersectFound"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgIntersectNotFound{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgIntersectNotFound"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]
   toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok ChainSync.MsgDone{}) =
     [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgDone"
              , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
              ]

instance (Show txid, Show tx)
      => ToObject (AnyMessageAndAgency (TxSubmission txid tx)) where
  toObject :: TracingVerbosity
-> AnyMessageAndAgency (TxSubmission txid tx) -> Object
toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok (MsgRequestTxs txids)) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRequestTxs"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      , Text
"txIds" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ [txid1] -> String
forall a. Show a => a -> String
show [txid1]
txids)
      ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok (MsgReplyTxs txs)) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgReplyTxs"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      , Text
"txs" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ [tx1] -> String
forall a. Show a => a -> String
show [tx1]
txs)
      ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok MsgRequestTxIds{}) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgRequestTxIds"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok (MsgReplyTxIds _)) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgReplyTxIds"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      ]
  toObject TracingVerbosity
_verb (AnyMessageAndAgency PeerHasAgency pr st
stok Message (TxSubmission txid tx) st st'
MsgDone) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgDone"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      ]

instance (Show txid, Show tx)
      => ToObject (AnyMessageAndAgency (TxSubmission2 txid tx)) where
  toObject :: TracingVerbosity
-> AnyMessageAndAgency (TxSubmission2 txid tx) -> Object
toObject TracingVerbosity
_verb (AnyMessageAndAgency
                   -- we need this pattern match for GHC to recognise this
                   -- function as total.
                   stok :: PeerHasAgency pr st
stok@(ClientAgency ClientHasAgency st
TokHello)
                   Message (TxSubmission2 txid tx) st st'
MsgHello) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MsgHello"
      , Text
"agency" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ PeerHasAgency pr st -> String
forall a. Show a => a -> String
show PeerHasAgency pr st
stok)
      ]
  toObject TracingVerbosity
verb (AnyMessageAndAgency
                  (ClientAgency (TokClientTalk stok))
                  (MsgTalk msg)) =
    TracingVerbosity
-> AnyMessageAndAgency (TxSubmission txid tx) -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb (PeerHasAgency 'AsClient stInner
-> Message (TxSubmission txid tx) stInner stInner'
-> AnyMessageAndAgency (TxSubmission txid tx)
forall (pr :: PeerRole) ps (st :: ps) (st' :: ps).
PeerHasAgency pr st -> Message ps st st' -> AnyMessageAndAgency ps
AnyMessageAndAgency (ClientHasAgency stInner -> PeerHasAgency 'AsClient stInner
forall ps (st :: ps).
ClientHasAgency st -> PeerHasAgency 'AsClient st
ClientAgency ClientHasAgency stInner
stok) Message (TxSubmission txid tx) stInner stInner'
Message (TxSubmission txid tx) stInner stInner'
msg)
  toObject TracingVerbosity
verb (AnyMessageAndAgency
                  (ServerAgency (TokServerTalk stok))
                  (MsgTalk msg)) =
    TracingVerbosity
-> AnyMessageAndAgency (TxSubmission txid tx) -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb (PeerHasAgency 'AsServer stInner
-> Message (TxSubmission txid tx) stInner stInner'
-> AnyMessageAndAgency (TxSubmission txid tx)
forall (pr :: PeerRole) ps (st :: ps) (st' :: ps).
PeerHasAgency pr st -> Message ps st st' -> AnyMessageAndAgency ps
AnyMessageAndAgency (ServerHasAgency stInner -> PeerHasAgency 'AsServer stInner
forall ps (st :: ps).
ServerHasAgency st -> PeerHasAgency 'AsServer st
ServerAgency ServerHasAgency stInner
stok) Message (TxSubmission txid tx) stInner stInner'
Message (TxSubmission txid tx) stInner stInner'
msg)


instance ToObject (FetchDecision [Point header]) where
  toObject :: TracingVerbosity -> FetchDecision [Point header] -> Object
toObject TracingVerbosity
_verb (Left FetchDecline
decline) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"FetchDecision declined"
             , Text
"declined" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (FetchDecline -> String
forall a. Show a => a -> String
show FetchDecline
decline))
             ]
  toObject TracingVerbosity
_verb (Right [Point header]
results) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"FetchDecision results"
             , Text
"length" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ Int -> String
forall a. Show a => a -> String
show (Int -> String) -> Int -> String
forall a b. (a -> b) -> a -> b
$ [Point header] -> Int
forall a. HasLength a => a -> Int
length [Point header]
results)
             ]

instance ToObject ND.DiffusionInitializationTracer where
  toObject :: TracingVerbosity -> DiffusionInitializationTracer -> Object
toObject TracingVerbosity
_verb (ND.RunServer SockAddr
sockAddr) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"RunServer"
    , Text
"socketAddress" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
sockAddr))
    ]

  toObject TracingVerbosity
_verb (ND.RunLocalServer LocalAddress
localAddress) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"RunLocalServer"
    , Text
"localAddress" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (LocalAddress -> String
forall a. Show a => a -> String
show LocalAddress
localAddress))
    ]
  toObject TracingVerbosity
_verb (ND.UsingSystemdSocket String
path) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"UsingSystemdSocket"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    ]

  toObject TracingVerbosity
_verb (ND.CreateSystemdSocketForSnocketPath String
path) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"CreateSystemdSocketForSnocketPath"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    ]
  toObject TracingVerbosity
_verb (ND.CreatedLocalSocket String
path) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"CreatedLocalSocket"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    ]
  toObject TracingVerbosity
_verb (ND.ConfiguringLocalSocket String
path FileDescriptor
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ConfiguringLocalSocket"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (FileDescriptor -> String
forall a. Show a => a -> String
show FileDescriptor
socket))
    ]
  toObject TracingVerbosity
_verb (ND.ListeningLocalSocket String
path FileDescriptor
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ListeningLocalSocket"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (FileDescriptor -> String
forall a. Show a => a -> String
show FileDescriptor
socket))
    ]
  toObject TracingVerbosity
_verb (ND.LocalSocketUp String
path FileDescriptor
fd) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"LocalSocketUp"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack String
path)
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (FileDescriptor -> String
forall a. Show a => a -> String
show FileDescriptor
fd))
    ]
  toObject TracingVerbosity
_verb (ND.CreatingServerSocket SockAddr
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"CreatingServerSocket"
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
socket))
    ]
  toObject TracingVerbosity
_verb (ND.ListeningServerSocket SockAddr
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ListeningServerSocket"
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
socket))
    ]
  toObject TracingVerbosity
_verb (ND.ServerSocketUp SockAddr
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ServerSocketUp"
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
socket))
    ]
  toObject TracingVerbosity
_verb (ND.ConfiguringServerSocket SockAddr
socket) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ConfiguringServerSocket"
    , Text
"socket" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
socket))
    ]
  toObject TracingVerbosity
_verb (ND.UnsupportedLocalSystemdSocket SockAddr
path) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"UnsupportedLocalSystemdSocket"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SockAddr -> String
forall a. Show a => a -> String
show SockAddr
path))
    ]
  toObject TracingVerbosity
_verb DiffusionInitializationTracer
ND.UnsupportedReadySocketCase = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"UnsupportedReadySocketCase"
    ]
  toObject TracingVerbosity
_verb (ND.DiffusionErrored SomeException
exception) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"DiffusionErrored"
    , Text
"path" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (SomeException -> String
forall a. Show a => a -> String
show SomeException
exception))
    ]

instance ToObject NtC.HandshakeTr where
  toObject :: TracingVerbosity -> HandshakeTr -> Object
toObject TracingVerbosity
_verb (WithMuxBearer ConnectionId LocalAddress
b TraceSendRecv (Handshake NodeToClientVersion Term)
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"LocalHandshakeTrace"
             , Text
"bearer" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= ConnectionId LocalAddress -> String
forall a. Show a => a -> String
show ConnectionId LocalAddress
b
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TraceSendRecv (Handshake NodeToClientVersion Term) -> String
forall a. Show a => a -> String
show TraceSendRecv (Handshake NodeToClientVersion Term)
ev ]


instance ToObject NtN.HandshakeTr where
  toObject :: TracingVerbosity -> HandshakeTr -> Object
toObject TracingVerbosity
_verb (WithMuxBearer ConnectionId SockAddr
b TraceSendRecv (Handshake NodeToNodeVersion Term)
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"HandshakeTrace"
             , Text
"bearer" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= ConnectionId SockAddr -> String
forall a. Show a => a -> String
show ConnectionId SockAddr
b
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TraceSendRecv (Handshake NodeToNodeVersion Term) -> String
forall a. Show a => a -> String
show TraceSendRecv (Handshake NodeToNodeVersion Term)
ev ]


instance ToObject NtN.AcceptConnectionsPolicyTrace where
  toObject :: TracingVerbosity -> AcceptConnectionsPolicyTrace -> Object
toObject TracingVerbosity
_verb (NtN.ServerTraceAcceptConnectionRateLimiting DiffTime
delay Int
numOfConnections) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ServerTraceAcceptConnectionRateLimiting"
             , Text
"delay" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= DiffTime -> String
forall a. Show a => a -> String
show DiffTime
delay
             , Text
"numberOfConnection" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> String
forall a. Show a => a -> String
show Int
numOfConnections
             ]
  toObject TracingVerbosity
_verb (NtN.ServerTraceAcceptConnectionHardLimit SizeInBytes
softLimit) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ServerTraceAcceptConnectionHardLimit"
             , Text
"softLimit" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SizeInBytes -> String
forall a. Show a => a -> String
show SizeInBytes
softLimit
             ]
  toObject TracingVerbosity
_verb (NtN.ServerTraceAcceptConnectionResume Int
numOfConnections) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ServerTraceAcceptConnectionResume"
             , Text
"numberOfConnection" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> String
forall a. Show a => a -> String
show Int
numOfConnections
             ]


instance ConvertRawHash blk
      => ToObject (Point blk) where
  toObject :: TracingVerbosity -> Point blk -> Object
toObject TracingVerbosity
_verb Point blk
GenesisPoint =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"GenesisPoint" ]
  toObject TracingVerbosity
verb (BlockPoint SlotNo
slot HeaderHash blk
h) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"BlockPoint"
      , Text
"slot" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Word64 -> Value
forall a. ToJSON a => a -> Value
toJSON (SlotNo -> Word64
unSlotNo SlotNo
slot)
      , Text
"headerHash" Text -> Text -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Proxy blk -> TracingVerbosity -> HeaderHash blk -> Text
forall blk (proxy :: * -> *).
ConvertRawHash blk =>
proxy blk -> TracingVerbosity -> HeaderHash blk -> Text
renderHeaderHashForVerbosity (Proxy blk
forall k (t :: k). Proxy t
Proxy @blk) TracingVerbosity
verb HeaderHash blk
h
      ]


instance ToObject SlotNo where
  toObject :: TracingVerbosity -> SlotNo -> Object
toObject TracingVerbosity
_verb SlotNo
slot =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"SlotNo"
             , Text
"slot" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Word64 -> Value
forall a. ToJSON a => a -> Value
toJSON (SlotNo -> Word64
unSlotNo SlotNo
slot) ]

instance (HasHeader header, ConvertRawHash header)
  => ToObject (TraceFetchClientState header) where
  toObject :: TracingVerbosity -> TraceFetchClientState header -> Object
toObject TracingVerbosity
_verb BlockFetch.AddedFetchRequest {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"AddedFetchRequest" ]
  toObject TracingVerbosity
_verb BlockFetch.AcknowledgedFetchRequest {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"AcknowledgedFetchRequest" ]
  toObject TracingVerbosity
_verb (BlockFetch.SendFetchRequest AnchoredFragment header
af) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"SendFetchRequest"
             , Text
"head" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String ((HeaderHash header -> Text) -> ChainHash header -> Text
forall blk. (HeaderHash blk -> Text) -> ChainHash blk -> Text
renderChainHash
                                  (Proxy header -> HeaderHash header -> Text
forall blk (proxy :: * -> *).
ConvertRawHash blk =>
proxy blk -> HeaderHash blk -> Text
renderHeaderHash (Proxy header
forall k (t :: k). Proxy t
Proxy @header))
                                  (AnchoredFragment header -> ChainHash header
forall block.
HasHeader block =>
AnchoredFragment block -> ChainHash block
AF.headHash AnchoredFragment header
af))
             , Text
"length" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON (AnchoredFragment header -> Int
fragmentLength AnchoredFragment header
af)]
   where
     -- NOTE: this ignores the Cole era with its EBB complication:
     -- the length would be underestimated by 1, if the AF is anchored
     -- at the epoch boundary.
     fragmentLength :: AF.AnchoredFragment header -> Int
     fragmentLength :: AnchoredFragment header -> Int
fragmentLength AnchoredFragment header
f = Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Word64 -> Int) -> (BlockNo -> Word64) -> BlockNo -> Int
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. BlockNo -> Word64
unBlockNo (BlockNo -> Int) -> BlockNo -> Int
forall a b. (a -> b) -> a -> b
$
        case (AnchoredFragment header
f, AnchoredFragment header
f) of
          (AS.Empty{}, AS.Empty{}) -> BlockNo
0
          (header
firstHdr AS.:< AnchoredFragment header
_, AnchoredFragment header
_ AS.:> header
lastHdr) ->
            header -> BlockNo
forall b. HasHeader b => b -> BlockNo
blockNo header
lastHdr BlockNo -> BlockNo -> BlockNo
forall a. Num a => a -> a -> a
- header -> BlockNo
forall b. HasHeader b => b -> BlockNo
blockNo header
firstHdr BlockNo -> BlockNo -> BlockNo
forall a. Num a => a -> a -> a
+ BlockNo
1
  toObject TracingVerbosity
_verb (BlockFetch.CompletedBlockFetch Point header
pt PeerFetchInFlight header
_ PeerFetchInFlightLimits
_ PeerFetchStatus header
_ NominalDiffTime
delay SizeInBytes
blockSize) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind"  Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"CompletedBlockFetch"
             , Text
"delay" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (NominalDiffTime -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac NominalDiffTime
delay :: Double)
             , Text
"size"  Text -> SizeInBytes -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SizeInBytes
blockSize
             , Text
"block" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String
               (case Point header
pt of
                  Point header
GenesisPoint -> Text
"Genesis"
                  BlockPoint SlotNo
_ HeaderHash header
h -> Proxy header -> HeaderHash header -> Text
forall blk (proxy :: * -> *).
ConvertRawHash blk =>
proxy blk -> HeaderHash blk -> Text
renderHeaderHash (Proxy header
forall k (t :: k). Proxy t
Proxy @header) HeaderHash header
h)
             ]
  toObject TracingVerbosity
_verb BlockFetch.CompletedFetchBatch {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"CompletedFetchBatch" ]
  toObject TracingVerbosity
_verb BlockFetch.StartedFetchBatch {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"StartedFetchBatch" ]
  toObject TracingVerbosity
_verb BlockFetch.RejectedFetchBatch {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"RejectedFetchBatch" ]
  toObject TracingVerbosity
_verb BlockFetch.ClientTerminating {} =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ClientTerminating" ]


instance (ToObject peer)
      => ToObject [TraceLabelPeer peer (FetchDecision [Point header])] where
  toObject :: TracingVerbosity
-> [TraceLabelPeer peer (FetchDecision [Point header])] -> Object
toObject TracingVerbosity
MinimalVerbosity [TraceLabelPeer peer (FetchDecision [Point header])]
_ = Object
forall a. ToObject a => HashMap Text a
emptyObject
  toObject TracingVerbosity
_ [] = Object
forall a. ToObject a => HashMap Text a
emptyObject
  toObject TracingVerbosity
_ [TraceLabelPeer peer (FetchDecision [Point header])]
xs = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind"  Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"PeersFetch"
    , Text
"peers" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [Object] -> Value
forall a. ToJSON a => a -> Value
toJSON
      (([Object]
 -> TraceLabelPeer peer (FetchDecision [Point header]) -> [Object])
-> [Object]
-> [TraceLabelPeer peer (FetchDecision [Point header])]
-> [Object]
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
foldl' (\[Object]
acc TraceLabelPeer peer (FetchDecision [Point header])
x -> TracingVerbosity
-> TraceLabelPeer peer (FetchDecision [Point header]) -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
MaximalVerbosity TraceLabelPeer peer (FetchDecision [Point header])
x Object -> [Object] -> [Object]
forall a. a -> [a] -> [a]
: [Object]
acc) [] [TraceLabelPeer peer (FetchDecision [Point header])]
xs) ]

instance (ToObject peer, ToObject a) => ToObject (TraceLabelPeer peer a) where
  toObject :: TracingVerbosity -> TraceLabelPeer peer a -> Object
toObject TracingVerbosity
verb (TraceLabelPeer peer
peerid a
a) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"peer" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> peer -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb peer
peerid ] Object -> Object -> Object
forall a. Semigroup a => a -> a -> a
<> TracingVerbosity -> a -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb a
a


instance ToObject (AnyMessageAndAgency ps)
      => ToObject (TraceSendRecv ps) where
  toObject :: TracingVerbosity -> TraceSendRecv ps -> Object
toObject TracingVerbosity
verb (TraceSendMsg AnyMessageAndAgency ps
m) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"Send" , Text
"msg" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> AnyMessageAndAgency ps -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb AnyMessageAndAgency ps
m ]
  toObject TracingVerbosity
verb (TraceRecvMsg AnyMessageAndAgency ps
m) = [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
    [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"Recv" , Text
"msg" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> AnyMessageAndAgency ps -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb AnyMessageAndAgency ps
m ]


instance ToObject (TraceTxSubmissionInbound txid tx) where
  toObject :: TracingVerbosity -> TraceTxSubmissionInbound txid tx -> Object
toObject TracingVerbosity
_verb (TraceTxSubmissionCollected Int
count) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionCollected"
      , Text
"count" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON Int
count
      ]
  toObject TracingVerbosity
_verb (TraceTxSubmissionProcessed ProcessedTxCount
processed) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionProcessed"
      , Text
"accepted" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON (ProcessedTxCount -> Int
ptxcAccepted ProcessedTxCount
processed)
      , Text
"rejected" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON (ProcessedTxCount -> Int
ptxcRejected ProcessedTxCount
processed)
      ]
  toObject TracingVerbosity
_verb TraceTxSubmissionInbound txid tx
TraceTxInboundTerminated =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxInboundTerminated"
      ]
  toObject TracingVerbosity
_verb (TraceTxInboundCanRequestMoreTxs Int
count) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxInboundCanRequestMoreTxs"
      , Text
"count" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON Int
count
      ]
  toObject TracingVerbosity
_verb (TraceTxInboundCannotRequestMoreTxs Int
count) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxInboundCannotRequestMoreTxs"
      , Text
"count" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Int -> Value
forall a. ToJSON a => a -> Value
toJSON Int
count
      ]


instance (Show txid, Show tx)
      => ToObject (TraceTxSubmissionOutbound txid tx) where
  toObject :: TracingVerbosity -> TraceTxSubmissionOutbound txid tx -> Object
toObject TracingVerbosity
MaximalVerbosity (TraceTxSubmissionOutboundRecvMsgRequestTxs [txid]
txids) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionOutboundRecvMsgRequestTxs"
      , Text
"txIds" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ [txid] -> String
forall a. Show a => a -> String
show [txid]
txids)
      ]
  toObject TracingVerbosity
_verb (TraceTxSubmissionOutboundRecvMsgRequestTxs [txid]
_txids) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionOutboundRecvMsgRequestTxs"
      ]
  toObject TracingVerbosity
MaximalVerbosity (TraceTxSubmissionOutboundSendMsgReplyTxs [tx]
txs) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionOutboundSendMsgReplyTxs"
      , Text
"txs" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String (String -> Text
pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ [tx] -> String
forall a. Show a => a -> String
show [tx]
txs)
      ]
  toObject TracingVerbosity
_verb (TraceTxSubmissionOutboundSendMsgReplyTxs [tx]
_txs) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceTxSubmissionOutboundSendMsgReplyTxs"
      ]
  toObject TracingVerbosity
_verb (TraceControlMessage ControlMessage
_msg) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceControlMessage"
      ]


instance Show remotePeer => ToObject (TraceKeepAliveClient remotePeer) where
  toObject :: TracingVerbosity -> TraceKeepAliveClient remotePeer -> Object
toObject TracingVerbosity
_verb (AddSample remotePeer
peer DiffTime
rtt PeerGSV
pgsv) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject
      [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"TraceKeepAliveClient AddSample"
      , Text
"address" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= remotePeer -> String
forall a. Show a => a -> String
show remotePeer
peer
      , Text
"rtt" Text -> DiffTime -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= DiffTime
rtt
      , Text
"sampleTime" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double -> String
forall a. Show a => a -> String
show (Time -> Double
dTime (Time -> Double) -> Time -> Double
forall a b. (a -> b) -> a -> b
$ PeerGSV -> Time
sampleTime PeerGSV
pgsv)
      , Text
"outboundG" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (DiffTime -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac (DiffTime -> Double) -> DiffTime -> Double
forall a b. (a -> b) -> a -> b
$ GSV -> DiffTime
gGSV (PeerGSV -> GSV
outboundGSV PeerGSV
pgsv) :: Double)
      , Text
"inboundG" Text -> Double -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= (DiffTime -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac (DiffTime -> Double) -> DiffTime -> Double
forall a b. (a -> b) -> a -> b
$ GSV -> DiffTime
gGSV (PeerGSV -> GSV
inboundGSV PeerGSV
pgsv) :: Double)
      ]
    where
      gGSV :: GSV -> DiffTime
      gGSV :: GSV -> DiffTime
gGSV (GSV DiffTime
g SizeInBytes -> DiffTime
_ Distribution DiffTime
_) = DiffTime
g

      dTime :: Time -> Double
      dTime :: Time -> Double
dTime (Time DiffTime
d) = DiffTime -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac DiffTime
d

instance Show addr => ToObject (WithAddr addr ErrorPolicyTrace) where
  toObject :: TracingVerbosity -> WithAddr addr ErrorPolicyTrace -> Object
toObject TracingVerbosity
_verb (WithAddr addr
addr ErrorPolicyTrace
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"ErrorPolicyTrace"
             , Text
"address" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= addr -> String
forall a. Show a => a -> String
show addr
addr
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= ErrorPolicyTrace -> String
forall a. Show a => a -> String
show ErrorPolicyTrace
ev ]


instance ToObject (WithIPList (SubscriptionTrace SockAddr)) where
  toObject :: TracingVerbosity
-> WithIPList (SubscriptionTrace SockAddr) -> Object
toObject TracingVerbosity
_verb (WithIPList LocalAddresses SockAddr
localAddresses [SockAddr]
dests SubscriptionTrace SockAddr
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"WithIPList SubscriptionTrace"
             , Text
"localAddresses" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= LocalAddresses SockAddr -> String
forall a. Show a => a -> String
show LocalAddresses SockAddr
localAddresses
             , Text
"dests" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [SockAddr] -> String
forall a. Show a => a -> String
show [SockAddr]
dests
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SubscriptionTrace SockAddr -> String
forall a. Show a => a -> String
show SubscriptionTrace SockAddr
ev ]


instance ToObject (WithDomainName DnsTrace) where
  toObject :: TracingVerbosity -> WithDomainName DnsTrace -> Object
toObject TracingVerbosity
_verb (WithDomainName Domain
dom DnsTrace
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"DnsTrace"
             , Text
"domain" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Domain -> String
forall a. Show a => a -> String
show Domain
dom
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= DnsTrace -> String
forall a. Show a => a -> String
show DnsTrace
ev ]


instance ToObject (WithDomainName (SubscriptionTrace SockAddr)) where
  toObject :: TracingVerbosity
-> WithDomainName (SubscriptionTrace SockAddr) -> Object
toObject TracingVerbosity
_verb (WithDomainName Domain
dom SubscriptionTrace SockAddr
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"SubscriptionTrace"
             , Text
"domain" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Domain -> String
forall a. Show a => a -> String
show Domain
dom
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= SubscriptionTrace SockAddr -> String
forall a. Show a => a -> String
show SubscriptionTrace SockAddr
ev ]


instance (Show peer) => ToObject (WithMuxBearer peer MuxTrace) where
  toObject :: TracingVerbosity -> WithMuxBearer peer MuxTrace -> Object
toObject TracingVerbosity
_verb (WithMuxBearer peer
b MuxTrace
ev) =
    [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"kind" Text -> Value -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text -> Value
String Text
"MuxTrace"
             , Text
"bearer" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= peer -> String
forall a. Show a => a -> String
show peer
b
             , Text
"event" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= MuxTrace -> String
forall a. Show a => a -> String
show MuxTrace
ev ]

instance ToObject NtN.RemoteAddress where
    toObject :: TracingVerbosity -> SockAddr -> Object
toObject TracingVerbosity
_verb (SockAddrInet PortNumber
port SizeInBytes
addr) =
        let ip :: IPv4
ip = SizeInBytes -> IPv4
IP.fromHostAddress SizeInBytes
addr in
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"addr" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= IPv4 -> String
forall a. Show a => a -> String
show IPv4
ip
                 , Text
"port" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= PortNumber -> String
forall a. Show a => a -> String
show PortNumber
port
                 ]
    toObject TracingVerbosity
_verb (SockAddrInet6 PortNumber
port SizeInBytes
_ HostAddress6
addr SizeInBytes
_) =
        let ip :: IPv6
ip = HostAddress6 -> IPv6
IP.fromHostAddress6 HostAddress6
addr in
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"addr" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= IPv6 -> String
forall a. Show a => a -> String
show IPv6
ip
                 , Text
"port" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= PortNumber -> String
forall a. Show a => a -> String
show PortNumber
port
                 ]
    toObject TracingVerbosity
_verb (SockAddrUnix String
path) =
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"path" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String -> String
forall a. Show a => a -> String
show String
path ]


instance ToObject NtN.RemoteConnectionId where
    toObject :: TracingVerbosity -> ConnectionId SockAddr -> Object
toObject TracingVerbosity
verb (NtN.ConnectionId SockAddr
l SockAddr
r) =
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"local" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> SockAddr -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb SockAddr
l
                 , Text
"remote" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> SockAddr -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb SockAddr
r
                 ]

instance ToObject LocalAddress where
    toObject :: TracingVerbosity -> LocalAddress -> Object
toObject TracingVerbosity
_verb (LocalAddress String
path) =
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [Text
"path" Text -> String -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= String
path]

instance ToObject NtC.LocalConnectionId where
    toObject :: TracingVerbosity -> ConnectionId LocalAddress -> Object
toObject TracingVerbosity
verb (NtC.ConnectionId LocalAddress
l LocalAddress
r) =
        [(Text, Value)] -> Object
forall a. ToObject a => [(Text, a)] -> HashMap Text a
mkObject [ Text
"local" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> LocalAddress -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb LocalAddress
l
                 , Text
"remote" Text -> Object -> (Text, Value)
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= TracingVerbosity -> LocalAddress -> Object
forall a. ToObject a => TracingVerbosity -> a -> Object
toObject TracingVerbosity
verb LocalAddress
r
                 ]