{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}

module Cardano.Tracing.Config
  ( TraceOptions (..)
  , TraceSelection (..)
  , OnOff (..)
  , PartialTraceOptions (..)
  , PartialTraceSelection (..)
  , partialTraceSelectionToEither
  , defaultPartialTraceConfiguration
  , lastToEither

  -- * Trace symbols
  , TraceConnectionManagerCounters
  , TracePeerSelectionCounters
  , TraceInboundGovernorCounters
  ) where

import           Cardano.Prelude
import           Prelude (String)

import           Data.Aeson
import qualified Data.Aeson.Key as Aeson
import           Data.Aeson.Types
import qualified Data.Text as Text
import           Generic.Data (gmappend)

import           Cardano.BM.Tracing (TracingVerbosity (..))
import           Cardano.Node.Orphans ()


data TraceOptions
  = TracingOff
  | TracingOnLegacy TraceSelection
  | TraceDispatcher TraceSelection
  deriving (TraceOptions -> TraceOptions -> Bool
(TraceOptions -> TraceOptions -> Bool)
-> (TraceOptions -> TraceOptions -> Bool) -> Eq TraceOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TraceOptions -> TraceOptions -> Bool
$c/= :: TraceOptions -> TraceOptions -> Bool
== :: TraceOptions -> TraceOptions -> Bool
$c== :: TraceOptions -> TraceOptions -> Bool
Eq, Int -> TraceOptions -> ShowS
[TraceOptions] -> ShowS
TraceOptions -> String
(Int -> TraceOptions -> ShowS)
-> (TraceOptions -> String)
-> ([TraceOptions] -> ShowS)
-> Show TraceOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TraceOptions] -> ShowS
$cshowList :: [TraceOptions] -> ShowS
show :: TraceOptions -> String
$cshow :: TraceOptions -> String
showsPrec :: Int -> TraceOptions -> ShowS
$cshowsPrec :: Int -> TraceOptions -> ShowS
Show)

data PartialTraceOptions
  = PartialTracingOff
  | PartialTracingOnLegacy PartialTraceSelection
  | PartialTraceDispatcher PartialTraceSelection
  deriving (PartialTraceOptions -> PartialTraceOptions -> Bool
(PartialTraceOptions -> PartialTraceOptions -> Bool)
-> (PartialTraceOptions -> PartialTraceOptions -> Bool)
-> Eq PartialTraceOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PartialTraceOptions -> PartialTraceOptions -> Bool
$c/= :: PartialTraceOptions -> PartialTraceOptions -> Bool
== :: PartialTraceOptions -> PartialTraceOptions -> Bool
$c== :: PartialTraceOptions -> PartialTraceOptions -> Bool
Eq, Int -> PartialTraceOptions -> ShowS
[PartialTraceOptions] -> ShowS
PartialTraceOptions -> String
(Int -> PartialTraceOptions -> ShowS)
-> (PartialTraceOptions -> String)
-> ([PartialTraceOptions] -> ShowS)
-> Show PartialTraceOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PartialTraceOptions] -> ShowS
$cshowList :: [PartialTraceOptions] -> ShowS
show :: PartialTraceOptions -> String
$cshow :: PartialTraceOptions -> String
showsPrec :: Int -> PartialTraceOptions -> ShowS
$cshowsPrec :: Int -> PartialTraceOptions -> ShowS
Show)

instance Monoid PartialTraceOptions where
  mempty :: PartialTraceOptions
mempty = PartialTraceOptions
PartialTracingOff

-- Mimics Last's semantics
instance Semigroup PartialTraceOptions where

  PartialTraceOptions
tracingA <> :: PartialTraceOptions -> PartialTraceOptions -> PartialTraceOptions
<> PartialTraceOptions
tracingB =
    case (PartialTraceOptions
tracingA, PartialTraceOptions
tracingB) of
      (PartialTracingOnLegacy PartialTraceSelection
ptsA, PartialTracingOnLegacy PartialTraceSelection
ptsB) ->
        PartialTraceSelection -> PartialTraceOptions
PartialTracingOnLegacy (PartialTraceSelection
ptsA PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
forall a. Semigroup a => a -> a -> a
<> PartialTraceSelection
ptsB)

      (PartialTraceDispatcher PartialTraceSelection
ptsA, PartialTraceDispatcher PartialTraceSelection
ptsB) ->
        PartialTraceSelection -> PartialTraceOptions
PartialTraceDispatcher (PartialTraceSelection
ptsA PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
forall a. Semigroup a => a -> a -> a
<> PartialTraceSelection
ptsB)

      (PartialTraceOptions
_, PartialTraceOptions
tracing) -> PartialTraceOptions
tracing

type TraceAcceptPolicy = ("TraceAcceptPolicy" :: Symbol)
type TraceBlockchainTime = ("TraceBlockchainTime" :: Symbol)
type TraceBlockFetchClient = ("TraceBlockFetchClient" :: Symbol)
type TraceBlockFetchDecisions = ("TraceBlockFetchDecisions" :: Symbol)
type TraceBlockFetchProtocol = ("TraceBlockFetchProtocol" :: Symbol)
type TraceBlockFetchProtocolSerialised = ("TraceBlockFetchProtocolSerialised" :: Symbol)
type TraceBlockFetchServer = ("TraceBlockFetchServer" :: Symbol)
type TraceChainDB = ("TraceChainDb" :: Symbol)
type TraceChainSyncClient = ("TraceChainSyncClient" :: Symbol)
type TraceChainSyncBlockServer = ("TraceChainSyncBlockServer" :: Symbol)
type TraceChainSyncHeaderServer = ("TraceChainSyncHeaderServer" :: Symbol)
type TraceChainSyncProtocol = ("TraceChainSyncProtocol" :: Symbol)
type TraceConnectionManager = ("TraceConnectionManager" :: Symbol)
type TraceConnectionManagerCounters = ("TraceConnectionManagerCounters" :: Symbol)
type TraceConnectionManagerTransitions = ("TraceConnectionManagerTransitions" :: Symbol)
type DebugPeerSelectionInitiator = ("DebugPeerSelectionInitiator" :: Symbol)
type DebugPeerSelectionInitiatorResponder = ("DebugPeerSelectionInitiatorResponder" :: Symbol)
type TraceDiffusionInitialization = ("TraceDiffusionInitialization" :: Symbol)
type TraceDnsResolver = ("TraceDnsResolver" :: Symbol)
type TraceDnsSubscription = ("TraceDnsSubscription" :: Symbol)
type TraceErrorPolicy = ("TraceErrorPolicy" :: Symbol)
type TraceForge = ("TraceForge" :: Symbol)
type TraceForgeStateInfo = ("TraceForgeStateInfo" :: Symbol)
type TraceHandshake = ("TraceHandshake" :: Symbol)
type TraceIpSubscription = ("TraceIpSubscription" :: Symbol)
type TraceKeepAliveClient = ("TraceKeepAliveClient" :: Symbol)
type TraceLedgerPeers = ("TraceLedgerPeers" :: Symbol)
type TraceLocalChainSyncProtocol = ("TraceLocalChainSyncProtocol" :: Symbol)
type TraceLocalConnectionManager = ("TraceLocalConnectionManager" :: Symbol)
type TraceLocalErrorPolicy = ("TraceLocalErrorPolicy" :: Symbol)
type TraceLocalHandshake = ("TraceLocalHandshake" :: Symbol)
type TraceLocalInboundGovernor = ("TraceLocalInboundGovernor" :: Symbol)
type TraceLocalRootPeers = ("TraceLocalRootPeers" :: Symbol)
type TraceLocalServer = ("TraceLocalServer" :: Symbol)
type TraceLocalStateQueryProtocol = ("TraceLocalStateQueryProtocol" :: Symbol)
type TraceLocalTxMonitorProtocol = ("TraceLocalTxMonitorProtocol" :: Symbol)
type TraceLocalTxSubmissionProtocol = ("TraceLocalTxSubmissionProtocol" :: Symbol)
type TraceLocalTxSubmissionServer = ("TraceLocalTxSubmissionServer" :: Symbol)
type TraceMempool = ("TraceMempool" :: Symbol)
type TraceMux = ("TraceMux" :: Symbol)
type TraceLocalMux = ("TraceLocalMux" :: Symbol)
type TracePeerSelection = ("TracePeerSelection" :: Symbol)
type TracePeerSelectionCounters = ("TracePeerSelectionCounters" :: Symbol)
type TracePeerSelectionActions = ("TracePeerSelectionActions" :: Symbol)
type TracePublicRootPeers = ("TracePublicRootPeers" :: Symbol)
type TraceServer = ("TraceServer" :: Symbol)
type TraceInboundGovernor = ("TraceInboundGovernor" :: Symbol)
type TraceInboundGovernorCounters = ("TraceInboundGovernorCounters" :: Symbol)
type TraceInboundGovernorTransitions = ("TraceInboundGovernorTransitions" :: Symbol)
type TraceTxInbound = ("TraceTxInbound" :: Symbol)
type TraceTxOutbound = ("TraceTxOutbound" :: Symbol)
type TraceTxSubmissionProtocol = ("TraceTxSubmissionProtocol" :: Symbol)
type TraceTxSubmission2Protocol = ("TraceTxSubmission2Protocol" :: Symbol)

newtype OnOff (name :: Symbol) = OnOff { OnOff name -> Bool
isOn :: Bool } deriving (OnOff name -> OnOff name -> Bool
(OnOff name -> OnOff name -> Bool)
-> (OnOff name -> OnOff name -> Bool) -> Eq (OnOff name)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (name :: Symbol). OnOff name -> OnOff name -> Bool
/= :: OnOff name -> OnOff name -> Bool
$c/= :: forall (name :: Symbol). OnOff name -> OnOff name -> Bool
== :: OnOff name -> OnOff name -> Bool
$c== :: forall (name :: Symbol). OnOff name -> OnOff name -> Bool
Eq, Int -> OnOff name -> ShowS
[OnOff name] -> ShowS
OnOff name -> String
(Int -> OnOff name -> ShowS)
-> (OnOff name -> String)
-> ([OnOff name] -> ShowS)
-> Show (OnOff name)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall (name :: Symbol). Int -> OnOff name -> ShowS
forall (name :: Symbol). [OnOff name] -> ShowS
forall (name :: Symbol). OnOff name -> String
showList :: [OnOff name] -> ShowS
$cshowList :: forall (name :: Symbol). [OnOff name] -> ShowS
show :: OnOff name -> String
$cshow :: forall (name :: Symbol). OnOff name -> String
showsPrec :: Int -> OnOff name -> ShowS
$cshowsPrec :: forall (name :: Symbol). Int -> OnOff name -> ShowS
Show)

instance FromJSON (OnOff a) where
    parseJSON :: Value -> Parser (OnOff a)
parseJSON (Data.Aeson.Bool Bool
b)= OnOff a -> Parser (OnOff a)
forall (m :: * -> *) a. Monad m => a -> m a
return (OnOff a -> Parser (OnOff a)) -> OnOff a -> Parser (OnOff a)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff a
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
b
    parseJSON Value
_ = Parser (OnOff a)
forall (m :: * -> *) a. MonadPlus m => m a
mzero

proxyName :: KnownSymbol name => Proxy name -> Text
proxyName :: Proxy name -> Text
proxyName Proxy name
p = String -> Text
Text.pack (Proxy name -> String
forall (n :: Symbol) (proxy :: Symbol -> *).
KnownSymbol n =>
proxy n -> String
symbolVal Proxy name
p)

data TraceSelection
  = TraceSelection
  { TraceSelection -> TracingVerbosity
traceVerbosity :: !TracingVerbosity

  -- Per-trace toggles, alpha-sorted.
  , TraceSelection -> OnOff TraceAcceptPolicy
traceAcceptPolicy :: OnOff TraceAcceptPolicy
  , TraceSelection -> OnOff TraceBlockFetchClient
traceBlockFetchClient :: OnOff TraceBlockFetchClient
  , TraceSelection -> OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions :: OnOff TraceBlockFetchDecisions
  , TraceSelection -> OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol :: OnOff TraceBlockFetchProtocol
  , TraceSelection -> OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised :: OnOff TraceBlockFetchProtocolSerialised
  , TraceSelection -> OnOff TraceBlockFetchServer
traceBlockFetchServer :: OnOff TraceBlockFetchServer
  , TraceSelection -> OnOff TraceBlockchainTime
traceBlockchainTime :: OnOff TraceBlockchainTime
  , TraceSelection -> OnOff TraceChainDB
traceChainDB :: OnOff TraceChainDB
  , TraceSelection -> OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer :: OnOff TraceChainSyncBlockServer
  , TraceSelection -> OnOff TraceChainSyncClient
traceChainSyncClient :: OnOff TraceChainSyncClient
  , TraceSelection -> OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer :: OnOff TraceChainSyncHeaderServer
  , TraceSelection -> OnOff TraceChainSyncProtocol
traceChainSyncProtocol :: OnOff TraceChainSyncProtocol
  , TraceSelection -> OnOff TraceConnectionManager
traceConnectionManager :: OnOff TraceConnectionManager
  , TraceSelection -> OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters :: OnOff TraceConnectionManagerCounters
  , TraceSelection -> OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions :: OnOff TraceConnectionManagerTransitions
  , TraceSelection -> OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer :: OnOff DebugPeerSelectionInitiator
  , TraceSelection -> OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer :: OnOff DebugPeerSelectionInitiatorResponder
  , TraceSelection -> OnOff TraceDiffusionInitialization
traceDiffusionInitialization :: OnOff TraceDiffusionInitialization
  , TraceSelection -> OnOff TraceDnsResolver
traceDnsResolver :: OnOff TraceDnsResolver
  , TraceSelection -> OnOff TraceDnsSubscription
traceDnsSubscription :: OnOff TraceDnsSubscription
  , TraceSelection -> OnOff TraceErrorPolicy
traceErrorPolicy :: OnOff TraceErrorPolicy
  , TraceSelection -> OnOff TraceForge
traceForge :: OnOff TraceForge
  , TraceSelection -> OnOff TraceForgeStateInfo
traceForgeStateInfo :: OnOff TraceForgeStateInfo
  , TraceSelection -> OnOff TraceHandshake
traceHandshake :: OnOff TraceHandshake
  , TraceSelection -> OnOff TraceInboundGovernor
traceInboundGovernor :: OnOff TraceInboundGovernor
  , TraceSelection -> OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters :: OnOff TraceInboundGovernorCounters
  , TraceSelection -> OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions :: OnOff TraceInboundGovernorTransitions
  , TraceSelection -> OnOff TraceIpSubscription
traceIpSubscription :: OnOff TraceIpSubscription
  , TraceSelection -> OnOff TraceKeepAliveClient
traceKeepAliveClient :: OnOff TraceKeepAliveClient
  , TraceSelection -> OnOff TraceLedgerPeers
traceLedgerPeers :: OnOff TraceLedgerPeers
  , TraceSelection -> OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol :: OnOff TraceLocalChainSyncProtocol
  , TraceSelection -> OnOff TraceLocalConnectionManager
traceLocalConnectionManager :: OnOff TraceLocalConnectionManager
  , TraceSelection -> OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy :: OnOff TraceLocalErrorPolicy
  , TraceSelection -> OnOff TraceLocalHandshake
traceLocalHandshake :: OnOff TraceLocalHandshake
  , TraceSelection -> OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor :: OnOff TraceLocalInboundGovernor
  , TraceSelection -> OnOff TraceLocalMux
traceLocalMux :: OnOff TraceLocalMux
  , TraceSelection -> OnOff TraceLocalRootPeers
traceLocalRootPeers :: OnOff TraceLocalRootPeers
  , TraceSelection -> OnOff TraceLocalServer
traceLocalServer :: OnOff TraceLocalServer
  , TraceSelection -> OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol :: OnOff TraceLocalStateQueryProtocol
  , TraceSelection -> OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol :: OnOff TraceLocalTxMonitorProtocol
  , TraceSelection -> OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol :: OnOff TraceLocalTxSubmissionProtocol
  , TraceSelection -> OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer :: OnOff TraceLocalTxSubmissionServer
  , TraceSelection -> OnOff TraceMempool
traceMempool :: OnOff TraceMempool
  , TraceSelection -> OnOff TraceMux
traceMux :: OnOff TraceMux
  , TraceSelection -> OnOff TracePeerSelection
tracePeerSelection :: OnOff TracePeerSelection
  , TraceSelection -> OnOff TracePeerSelectionCounters
tracePeerSelectionCounters :: OnOff TracePeerSelectionCounters
  , TraceSelection -> OnOff TracePeerSelectionActions
tracePeerSelectionActions :: OnOff TracePeerSelectionActions
  , TraceSelection -> OnOff TracePublicRootPeers
tracePublicRootPeers :: OnOff TracePublicRootPeers
  , TraceSelection -> OnOff TraceServer
traceServer :: OnOff TraceServer
  , TraceSelection -> OnOff TraceTxInbound
traceTxInbound :: OnOff TraceTxInbound
  , TraceSelection -> OnOff TraceTxOutbound
traceTxOutbound :: OnOff TraceTxOutbound
  , TraceSelection -> OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol :: OnOff TraceTxSubmissionProtocol
  , TraceSelection -> OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol :: OnOff TraceTxSubmission2Protocol
  } deriving (TraceSelection -> TraceSelection -> Bool
(TraceSelection -> TraceSelection -> Bool)
-> (TraceSelection -> TraceSelection -> Bool) -> Eq TraceSelection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TraceSelection -> TraceSelection -> Bool
$c/= :: TraceSelection -> TraceSelection -> Bool
== :: TraceSelection -> TraceSelection -> Bool
$c== :: TraceSelection -> TraceSelection -> Bool
Eq, Int -> TraceSelection -> ShowS
[TraceSelection] -> ShowS
TraceSelection -> String
(Int -> TraceSelection -> ShowS)
-> (TraceSelection -> String)
-> ([TraceSelection] -> ShowS)
-> Show TraceSelection
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TraceSelection] -> ShowS
$cshowList :: [TraceSelection] -> ShowS
show :: TraceSelection -> String
$cshow :: TraceSelection -> String
showsPrec :: Int -> TraceSelection -> ShowS
$cshowsPrec :: Int -> TraceSelection -> ShowS
Show)



data PartialTraceSelection
  = PartialTraceSelection
      { PartialTraceSelection -> Last TracingVerbosity
pTraceVerbosity :: !(Last TracingVerbosity)

      -- Per-trace toggles, alpha-sorted.
      , PartialTraceSelection -> Last (OnOff TraceAcceptPolicy)
pTraceAcceptPolicy :: Last (OnOff TraceAcceptPolicy)
      , PartialTraceSelection -> Last (OnOff TraceBlockchainTime)
pTraceBlockchainTime :: Last (OnOff TraceBlockchainTime)
      , PartialTraceSelection -> Last (OnOff TraceBlockFetchClient)
pTraceBlockFetchClient :: Last (OnOff TraceBlockFetchClient)
      , PartialTraceSelection -> Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchDecisions :: Last (OnOff TraceBlockFetchDecisions)
      , PartialTraceSelection -> Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchProtocol :: Last (OnOff TraceBlockFetchProtocol)
      , PartialTraceSelection
-> Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocolSerialised :: Last (OnOff TraceBlockFetchProtocolSerialised)
      , PartialTraceSelection -> Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchServer :: Last (OnOff TraceBlockFetchServer)
      , PartialTraceSelection -> Last (OnOff TraceChainDB)
pTraceChainDB :: Last (OnOff TraceChainDB)
      , PartialTraceSelection -> Last (OnOff TraceChainSyncBlockServer)
pTraceChainSyncBlockServer :: Last (OnOff TraceChainSyncBlockServer)
      , PartialTraceSelection -> Last (OnOff TraceChainSyncClient)
pTraceChainSyncClient :: Last (OnOff TraceChainSyncClient)
      , PartialTraceSelection -> Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncHeaderServer :: Last (OnOff TraceChainSyncHeaderServer)
      , PartialTraceSelection -> Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncProtocol :: Last (OnOff TraceChainSyncProtocol)
      , PartialTraceSelection -> Last (OnOff TraceConnectionManager)
pTraceConnectionManager :: Last (OnOff TraceConnectionManager)
      , PartialTraceSelection
-> Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManagerCounters :: Last (OnOff TraceConnectionManagerCounters)
      , PartialTraceSelection
-> Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerTransitions :: Last (OnOff TraceConnectionManagerTransitions)
      , PartialTraceSelection -> Last (OnOff DebugPeerSelectionInitiator)
pTraceDebugPeerSelectionInitiatorTracer :: Last (OnOff DebugPeerSelectionInitiator)
      , PartialTraceSelection -> Last (OnOff TraceDiffusionInitialization)
pTraceDiffusionInitialization :: Last (OnOff TraceDiffusionInitialization)
      , PartialTraceSelection
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDebugPeerSelectionInitiatorResponderTracer :: Last (OnOff DebugPeerSelectionInitiatorResponder)
      , PartialTraceSelection -> Last (OnOff TraceDnsResolver)
pTraceDnsResolver :: Last (OnOff TraceDnsResolver)
      , PartialTraceSelection -> Last (OnOff TraceDnsSubscription)
pTraceDnsSubscription :: Last (OnOff TraceDnsSubscription)
      , PartialTraceSelection -> Last (OnOff TraceErrorPolicy)
pTraceErrorPolicy :: Last (OnOff TraceErrorPolicy)
      , PartialTraceSelection -> Last (OnOff TraceForge)
pTraceForge :: Last (OnOff TraceForge)
      , PartialTraceSelection -> Last (OnOff TraceForgeStateInfo)
pTraceForgeStateInfo :: Last (OnOff TraceForgeStateInfo)
      , PartialTraceSelection -> Last (OnOff TraceHandshake)
pTraceHandshake :: Last (OnOff TraceHandshake)
      , PartialTraceSelection -> Last (OnOff TraceInboundGovernor)
pTraceInboundGovernor :: Last (OnOff TraceInboundGovernor)
      , PartialTraceSelection -> Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernorCounters :: Last (OnOff TraceInboundGovernorCounters)
      , PartialTraceSelection
-> Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorTransitions :: Last (OnOff TraceInboundGovernorTransitions)
      , PartialTraceSelection -> Last (OnOff TraceIpSubscription)
pTraceIpSubscription :: Last (OnOff TraceIpSubscription)
      , PartialTraceSelection -> Last (OnOff TraceKeepAliveClient)
pTraceKeepAliveClient :: Last (OnOff TraceKeepAliveClient)
      , PartialTraceSelection -> Last (OnOff TraceLedgerPeers)
pTraceLedgerPeers :: Last (OnOff TraceLedgerPeers)
      , PartialTraceSelection -> Last (OnOff TraceLocalChainSyncProtocol)
pTraceLocalChainSyncProtocol :: Last (OnOff TraceLocalChainSyncProtocol)
      , PartialTraceSelection -> Last (OnOff TraceLocalConnectionManager)
pTraceLocalConnectionManager :: Last (OnOff TraceLocalConnectionManager)
      , PartialTraceSelection -> Last (OnOff TraceLocalErrorPolicy)
pTraceLocalErrorPolicy :: Last (OnOff TraceLocalErrorPolicy)
      , PartialTraceSelection -> Last (OnOff TraceLocalHandshake)
pTraceLocalHandshake :: Last (OnOff TraceLocalHandshake)
      , PartialTraceSelection -> Last (OnOff TraceLocalInboundGovernor)
pTraceLocalInboundGovernor :: Last (OnOff TraceLocalInboundGovernor)
      , PartialTraceSelection -> Last (OnOff TraceLocalMux)
pTraceLocalMux :: Last (OnOff TraceLocalMux)
      , PartialTraceSelection -> Last (OnOff TraceLocalRootPeers)
pTraceLocalRootPeers :: Last (OnOff TraceLocalRootPeers)
      , PartialTraceSelection -> Last (OnOff TraceLocalServer)
pTraceLocalServer :: Last (OnOff TraceLocalServer)
      , PartialTraceSelection -> Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalStateQueryProtocol :: Last (OnOff TraceLocalStateQueryProtocol)
      , PartialTraceSelection -> Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalTxMonitorProtocol :: Last (OnOff TraceLocalTxMonitorProtocol)
      , PartialTraceSelection
-> Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxSubmissionProtocol :: Last (OnOff TraceLocalTxSubmissionProtocol)
      , PartialTraceSelection -> Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionServer :: Last (OnOff TraceLocalTxSubmissionServer)
      , PartialTraceSelection -> Last (OnOff TraceMempool)
pTraceMempool :: Last (OnOff TraceMempool)
      , PartialTraceSelection -> Last (OnOff TraceMux)
pTraceMux :: Last (OnOff TraceMux)
      , PartialTraceSelection -> Last (OnOff TracePeerSelection)
pTracePeerSelection :: Last (OnOff TracePeerSelection)
      , PartialTraceSelection -> Last (OnOff TracePeerSelectionCounters)
pTracePeerSelectionCounters :: Last (OnOff TracePeerSelectionCounters)
      , PartialTraceSelection -> Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionActions :: Last (OnOff TracePeerSelectionActions)
      , PartialTraceSelection -> Last (OnOff TracePublicRootPeers)
pTracePublicRootPeers :: Last (OnOff TracePublicRootPeers)
      , PartialTraceSelection -> Last (OnOff TraceServer)
pTraceServer :: Last (OnOff TraceServer)
      , PartialTraceSelection -> Last (OnOff TraceTxInbound)
pTraceTxInbound :: Last (OnOff TraceTxInbound)
      , PartialTraceSelection -> Last (OnOff TraceTxOutbound)
pTraceTxOutbound :: Last (OnOff TraceTxOutbound)
      , PartialTraceSelection -> Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmissionProtocol :: Last (OnOff TraceTxSubmissionProtocol)
      , PartialTraceSelection -> Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmission2Protocol :: Last (OnOff TraceTxSubmission2Protocol)
      } deriving (PartialTraceSelection -> PartialTraceSelection -> Bool
(PartialTraceSelection -> PartialTraceSelection -> Bool)
-> (PartialTraceSelection -> PartialTraceSelection -> Bool)
-> Eq PartialTraceSelection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PartialTraceSelection -> PartialTraceSelection -> Bool
$c/= :: PartialTraceSelection -> PartialTraceSelection -> Bool
== :: PartialTraceSelection -> PartialTraceSelection -> Bool
$c== :: PartialTraceSelection -> PartialTraceSelection -> Bool
Eq, (forall x. PartialTraceSelection -> Rep PartialTraceSelection x)
-> (forall x. Rep PartialTraceSelection x -> PartialTraceSelection)
-> Generic PartialTraceSelection
forall x. Rep PartialTraceSelection x -> PartialTraceSelection
forall x. PartialTraceSelection -> Rep PartialTraceSelection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PartialTraceSelection x -> PartialTraceSelection
$cfrom :: forall x. PartialTraceSelection -> Rep PartialTraceSelection x
Generic, Int -> PartialTraceSelection -> ShowS
[PartialTraceSelection] -> ShowS
PartialTraceSelection -> String
(Int -> PartialTraceSelection -> ShowS)
-> (PartialTraceSelection -> String)
-> ([PartialTraceSelection] -> ShowS)
-> Show PartialTraceSelection
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PartialTraceSelection] -> ShowS
$cshowList :: [PartialTraceSelection] -> ShowS
show :: PartialTraceSelection -> String
$cshow :: PartialTraceSelection -> String
showsPrec :: Int -> PartialTraceSelection -> ShowS
$cshowsPrec :: Int -> PartialTraceSelection -> ShowS
Show)


instance Semigroup PartialTraceSelection where
  <> :: PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
(<>) = PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
forall a. (Generic a, Semigroup (Rep a ())) => a -> a -> a
gmappend

instance FromJSON PartialTraceSelection where
  parseJSON :: Value -> Parser PartialTraceSelection
parseJSON = String
-> (Object -> Parser PartialTraceSelection)
-> Value
-> Parser PartialTraceSelection
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"PartialTraceSelection" ((Object -> Parser PartialTraceSelection)
 -> Value -> Parser PartialTraceSelection)
-> (Object -> Parser PartialTraceSelection)
-> Value
-> Parser PartialTraceSelection
forall a b. (a -> b) -> a -> b
$ \Object
v -> do
    Last TracingVerbosity
-> Last (OnOff TraceAcceptPolicy)
-> Last (OnOff TraceBlockchainTime)
-> Last (OnOff TraceBlockFetchClient)
-> Last (OnOff TraceBlockFetchDecisions)
-> Last (OnOff TraceBlockFetchProtocol)
-> Last (OnOff TraceBlockFetchProtocolSerialised)
-> Last (OnOff TraceBlockFetchServer)
-> Last (OnOff TraceChainDB)
-> Last (OnOff TraceChainSyncBlockServer)
-> Last (OnOff TraceChainSyncClient)
-> Last (OnOff TraceChainSyncHeaderServer)
-> Last (OnOff TraceChainSyncProtocol)
-> Last (OnOff TraceConnectionManager)
-> Last (OnOff TraceConnectionManagerCounters)
-> Last (OnOff TraceConnectionManagerTransitions)
-> Last (OnOff DebugPeerSelectionInitiator)
-> Last (OnOff TraceDiffusionInitialization)
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
-> Last (OnOff TraceDnsResolver)
-> Last (OnOff TraceDnsSubscription)
-> Last (OnOff TraceErrorPolicy)
-> Last (OnOff TraceForge)
-> Last (OnOff TraceForgeStateInfo)
-> Last (OnOff TraceHandshake)
-> Last (OnOff TraceInboundGovernor)
-> Last (OnOff TraceInboundGovernorCounters)
-> Last (OnOff TraceInboundGovernorTransitions)
-> Last (OnOff TraceIpSubscription)
-> Last (OnOff TraceKeepAliveClient)
-> Last (OnOff TraceLedgerPeers)
-> Last (OnOff TraceLocalChainSyncProtocol)
-> Last (OnOff TraceLocalConnectionManager)
-> Last (OnOff TraceLocalErrorPolicy)
-> Last (OnOff TraceLocalHandshake)
-> Last (OnOff TraceLocalInboundGovernor)
-> Last (OnOff TraceLocalMux)
-> Last (OnOff TraceLocalRootPeers)
-> Last (OnOff TraceLocalServer)
-> Last (OnOff TraceLocalStateQueryProtocol)
-> Last (OnOff TraceLocalTxMonitorProtocol)
-> Last (OnOff TraceLocalTxSubmissionProtocol)
-> Last (OnOff TraceLocalTxSubmissionServer)
-> Last (OnOff TraceMempool)
-> Last (OnOff TraceMux)
-> Last (OnOff TracePeerSelection)
-> Last (OnOff TracePeerSelectionCounters)
-> Last (OnOff TracePeerSelectionActions)
-> Last (OnOff TracePublicRootPeers)
-> Last (OnOff TraceServer)
-> Last (OnOff TraceTxInbound)
-> Last (OnOff TraceTxOutbound)
-> Last (OnOff TraceTxSubmissionProtocol)
-> Last (OnOff TraceTxSubmission2Protocol)
-> PartialTraceSelection
PartialTraceSelection
      (Last TracingVerbosity
 -> Last (OnOff TraceAcceptPolicy)
 -> Last (OnOff TraceBlockchainTime)
 -> Last (OnOff TraceBlockFetchClient)
 -> Last (OnOff TraceBlockFetchDecisions)
 -> Last (OnOff TraceBlockFetchProtocol)
 -> Last (OnOff TraceBlockFetchProtocolSerialised)
 -> Last (OnOff TraceBlockFetchServer)
 -> Last (OnOff TraceChainDB)
 -> Last (OnOff TraceChainSyncBlockServer)
 -> Last (OnOff TraceChainSyncClient)
 -> Last (OnOff TraceChainSyncHeaderServer)
 -> Last (OnOff TraceChainSyncProtocol)
 -> Last (OnOff TraceConnectionManager)
 -> Last (OnOff TraceConnectionManagerCounters)
 -> Last (OnOff TraceConnectionManagerTransitions)
 -> Last (OnOff DebugPeerSelectionInitiator)
 -> Last (OnOff TraceDiffusionInitialization)
 -> Last (OnOff DebugPeerSelectionInitiatorResponder)
 -> Last (OnOff TraceDnsResolver)
 -> Last (OnOff TraceDnsSubscription)
 -> Last (OnOff TraceErrorPolicy)
 -> Last (OnOff TraceForge)
 -> Last (OnOff TraceForgeStateInfo)
 -> Last (OnOff TraceHandshake)
 -> Last (OnOff TraceInboundGovernor)
 -> Last (OnOff TraceInboundGovernorCounters)
 -> Last (OnOff TraceInboundGovernorTransitions)
 -> Last (OnOff TraceIpSubscription)
 -> Last (OnOff TraceKeepAliveClient)
 -> Last (OnOff TraceLedgerPeers)
 -> Last (OnOff TraceLocalChainSyncProtocol)
 -> Last (OnOff TraceLocalConnectionManager)
 -> Last (OnOff TraceLocalErrorPolicy)
 -> Last (OnOff TraceLocalHandshake)
 -> Last (OnOff TraceLocalInboundGovernor)
 -> Last (OnOff TraceLocalMux)
 -> Last (OnOff TraceLocalRootPeers)
 -> Last (OnOff TraceLocalServer)
 -> Last (OnOff TraceLocalStateQueryProtocol)
 -> Last (OnOff TraceLocalTxMonitorProtocol)
 -> Last (OnOff TraceLocalTxSubmissionProtocol)
 -> Last (OnOff TraceLocalTxSubmissionServer)
 -> Last (OnOff TraceMempool)
 -> Last (OnOff TraceMux)
 -> Last (OnOff TracePeerSelection)
 -> Last (OnOff TracePeerSelectionCounters)
 -> Last (OnOff TracePeerSelectionActions)
 -> Last (OnOff TracePublicRootPeers)
 -> Last (OnOff TraceServer)
 -> Last (OnOff TraceTxInbound)
 -> Last (OnOff TraceTxOutbound)
 -> Last (OnOff TraceTxSubmissionProtocol)
 -> Last (OnOff TraceTxSubmission2Protocol)
 -> PartialTraceSelection)
-> (Maybe TracingVerbosity -> Last TracingVerbosity)
-> Maybe TracingVerbosity
-> Last (OnOff TraceAcceptPolicy)
-> Last (OnOff TraceBlockchainTime)
-> Last (OnOff TraceBlockFetchClient)
-> Last (OnOff TraceBlockFetchDecisions)
-> Last (OnOff TraceBlockFetchProtocol)
-> Last (OnOff TraceBlockFetchProtocolSerialised)
-> Last (OnOff TraceBlockFetchServer)
-> Last (OnOff TraceChainDB)
-> Last (OnOff TraceChainSyncBlockServer)
-> Last (OnOff TraceChainSyncClient)
-> Last (OnOff TraceChainSyncHeaderServer)
-> Last (OnOff TraceChainSyncProtocol)
-> Last (OnOff TraceConnectionManager)
-> Last (OnOff TraceConnectionManagerCounters)
-> Last (OnOff TraceConnectionManagerTransitions)
-> Last (OnOff DebugPeerSelectionInitiator)
-> Last (OnOff TraceDiffusionInitialization)
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
-> Last (OnOff TraceDnsResolver)
-> Last (OnOff TraceDnsSubscription)
-> Last (OnOff TraceErrorPolicy)
-> Last (OnOff TraceForge)
-> Last (OnOff TraceForgeStateInfo)
-> Last (OnOff TraceHandshake)
-> Last (OnOff TraceInboundGovernor)
-> Last (OnOff TraceInboundGovernorCounters)
-> Last (OnOff TraceInboundGovernorTransitions)
-> Last (OnOff TraceIpSubscription)
-> Last (OnOff TraceKeepAliveClient)
-> Last (OnOff TraceLedgerPeers)
-> Last (OnOff TraceLocalChainSyncProtocol)
-> Last (OnOff TraceLocalConnectionManager)
-> Last (OnOff TraceLocalErrorPolicy)
-> Last (OnOff TraceLocalHandshake)
-> Last (OnOff TraceLocalInboundGovernor)
-> Last (OnOff TraceLocalMux)
-> Last (OnOff TraceLocalRootPeers)
-> Last (OnOff TraceLocalServer)
-> Last (OnOff TraceLocalStateQueryProtocol)
-> Last (OnOff TraceLocalTxMonitorProtocol)
-> Last (OnOff TraceLocalTxSubmissionProtocol)
-> Last (OnOff TraceLocalTxSubmissionServer)
-> Last (OnOff TraceMempool)
-> Last (OnOff TraceMux)
-> Last (OnOff TracePeerSelection)
-> Last (OnOff TracePeerSelectionCounters)
-> Last (OnOff TracePeerSelectionActions)
-> Last (OnOff TracePublicRootPeers)
-> Last (OnOff TraceServer)
-> Last (OnOff TraceTxInbound)
-> Last (OnOff TraceTxOutbound)
-> Last (OnOff TraceTxSubmissionProtocol)
-> Last (OnOff TraceTxSubmission2Protocol)
-> PartialTraceSelection
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Maybe TracingVerbosity -> Last TracingVerbosity
forall a. Maybe a -> Last a
Last (Maybe TracingVerbosity
 -> Last (OnOff TraceAcceptPolicy)
 -> Last (OnOff TraceBlockchainTime)
 -> Last (OnOff TraceBlockFetchClient)
 -> Last (OnOff TraceBlockFetchDecisions)
 -> Last (OnOff TraceBlockFetchProtocol)
 -> Last (OnOff TraceBlockFetchProtocolSerialised)
 -> Last (OnOff TraceBlockFetchServer)
 -> Last (OnOff TraceChainDB)
 -> Last (OnOff TraceChainSyncBlockServer)
 -> Last (OnOff TraceChainSyncClient)
 -> Last (OnOff TraceChainSyncHeaderServer)
 -> Last (OnOff TraceChainSyncProtocol)
 -> Last (OnOff TraceConnectionManager)
 -> Last (OnOff TraceConnectionManagerCounters)
 -> Last (OnOff TraceConnectionManagerTransitions)
 -> Last (OnOff DebugPeerSelectionInitiator)
 -> Last (OnOff TraceDiffusionInitialization)
 -> Last (OnOff DebugPeerSelectionInitiatorResponder)
 -> Last (OnOff TraceDnsResolver)
 -> Last (OnOff TraceDnsSubscription)
 -> Last (OnOff TraceErrorPolicy)
 -> Last (OnOff TraceForge)
 -> Last (OnOff TraceForgeStateInfo)
 -> Last (OnOff TraceHandshake)
 -> Last (OnOff TraceInboundGovernor)
 -> Last (OnOff TraceInboundGovernorCounters)
 -> Last (OnOff TraceInboundGovernorTransitions)
 -> Last (OnOff TraceIpSubscription)
 -> Last (OnOff TraceKeepAliveClient)
 -> Last (OnOff TraceLedgerPeers)
 -> Last (OnOff TraceLocalChainSyncProtocol)
 -> Last (OnOff TraceLocalConnectionManager)
 -> Last (OnOff TraceLocalErrorPolicy)
 -> Last (OnOff TraceLocalHandshake)
 -> Last (OnOff TraceLocalInboundGovernor)
 -> Last (OnOff TraceLocalMux)
 -> Last (OnOff TraceLocalRootPeers)
 -> Last (OnOff TraceLocalServer)
 -> Last (OnOff TraceLocalStateQueryProtocol)
 -> Last (OnOff TraceLocalTxMonitorProtocol)
 -> Last (OnOff TraceLocalTxSubmissionProtocol)
 -> Last (OnOff TraceLocalTxSubmissionServer)
 -> Last (OnOff TraceMempool)
 -> Last (OnOff TraceMux)
 -> Last (OnOff TracePeerSelection)
 -> Last (OnOff TracePeerSelectionCounters)
 -> Last (OnOff TracePeerSelectionActions)
 -> Last (OnOff TracePublicRootPeers)
 -> Last (OnOff TraceServer)
 -> Last (OnOff TraceTxInbound)
 -> Last (OnOff TraceTxOutbound)
 -> Last (OnOff TraceTxSubmissionProtocol)
 -> Last (OnOff TraceTxSubmission2Protocol)
 -> PartialTraceSelection)
-> Parser (Maybe TracingVerbosity)
-> Parser
     (Last (OnOff TraceAcceptPolicy)
      -> Last (OnOff TraceBlockchainTime)
      -> Last (OnOff TraceBlockFetchClient)
      -> Last (OnOff TraceBlockFetchDecisions)
      -> Last (OnOff TraceBlockFetchProtocol)
      -> Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
v Object -> Key -> Parser (Maybe TracingVerbosity)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"TracingVerbosity"
      Parser
  (Last (OnOff TraceAcceptPolicy)
   -> Last (OnOff TraceBlockchainTime)
   -> Last (OnOff TraceBlockFetchClient)
   -> Last (OnOff TraceBlockFetchDecisions)
   -> Last (OnOff TraceBlockFetchProtocol)
   -> Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceAcceptPolicy))
-> Parser
     (Last (OnOff TraceBlockchainTime)
      -> Last (OnOff TraceBlockFetchClient)
      -> Last (OnOff TraceBlockFetchDecisions)
      -> Last (OnOff TraceBlockFetchProtocol)
      -> Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceAcceptPolicy
-> Object -> Parser (Last (OnOff TraceAcceptPolicy))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceAcceptPolicy
forall k (t :: k). Proxy t
Proxy @TraceAcceptPolicy) Object
v
      Parser
  (Last (OnOff TraceBlockchainTime)
   -> Last (OnOff TraceBlockFetchClient)
   -> Last (OnOff TraceBlockFetchDecisions)
   -> Last (OnOff TraceBlockFetchProtocol)
   -> Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockchainTime))
-> Parser
     (Last (OnOff TraceBlockFetchClient)
      -> Last (OnOff TraceBlockFetchDecisions)
      -> Last (OnOff TraceBlockFetchProtocol)
      -> Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockchainTime
-> Object -> Parser (Last (OnOff TraceBlockchainTime))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockchainTime
forall k (t :: k). Proxy t
Proxy @TraceBlockchainTime) Object
v
      Parser
  (Last (OnOff TraceBlockFetchClient)
   -> Last (OnOff TraceBlockFetchDecisions)
   -> Last (OnOff TraceBlockFetchProtocol)
   -> Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockFetchClient))
-> Parser
     (Last (OnOff TraceBlockFetchDecisions)
      -> Last (OnOff TraceBlockFetchProtocol)
      -> Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockFetchClient
-> Object -> Parser (Last (OnOff TraceBlockFetchClient))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockFetchClient
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchClient) Object
v
      Parser
  (Last (OnOff TraceBlockFetchDecisions)
   -> Last (OnOff TraceBlockFetchProtocol)
   -> Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockFetchDecisions))
-> Parser
     (Last (OnOff TraceBlockFetchProtocol)
      -> Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockFetchDecisions
-> Object -> Parser (Last (OnOff TraceBlockFetchDecisions))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockFetchDecisions
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchDecisions) Object
v
      Parser
  (Last (OnOff TraceBlockFetchProtocol)
   -> Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockFetchProtocol))
-> Parser
     (Last (OnOff TraceBlockFetchProtocolSerialised)
      -> Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockFetchProtocol
-> Object -> Parser (Last (OnOff TraceBlockFetchProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockFetchProtocol
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocol) Object
v
      Parser
  (Last (OnOff TraceBlockFetchProtocolSerialised)
   -> Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockFetchProtocolSerialised))
-> Parser
     (Last (OnOff TraceBlockFetchServer)
      -> Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockFetchProtocolSerialised
-> Object
-> Parser (Last (OnOff TraceBlockFetchProtocolSerialised))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockFetchProtocolSerialised
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocolSerialised) Object
v
      Parser
  (Last (OnOff TraceBlockFetchServer)
   -> Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceBlockFetchServer))
-> Parser
     (Last (OnOff TraceChainDB)
      -> Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceBlockFetchServer
-> Object -> Parser (Last (OnOff TraceBlockFetchServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceBlockFetchServer
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchServer) Object
v
      Parser
  (Last (OnOff TraceChainDB)
   -> Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceChainDB))
-> Parser
     (Last (OnOff TraceChainSyncBlockServer)
      -> Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceChainDB -> Object -> Parser (Last (OnOff TraceChainDB))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceChainDB
forall k (t :: k). Proxy t
Proxy @TraceChainDB) Object
v
      Parser
  (Last (OnOff TraceChainSyncBlockServer)
   -> Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceChainSyncBlockServer))
-> Parser
     (Last (OnOff TraceChainSyncClient)
      -> Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceChainSyncBlockServer
-> Object -> Parser (Last (OnOff TraceChainSyncBlockServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceChainSyncBlockServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncBlockServer) Object
v
      Parser
  (Last (OnOff TraceChainSyncClient)
   -> Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceChainSyncClient))
-> Parser
     (Last (OnOff TraceChainSyncHeaderServer)
      -> Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceChainSyncClient
-> Object -> Parser (Last (OnOff TraceChainSyncClient))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceChainSyncClient
forall k (t :: k). Proxy t
Proxy @TraceChainSyncClient) Object
v
      Parser
  (Last (OnOff TraceChainSyncHeaderServer)
   -> Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceChainSyncHeaderServer))
-> Parser
     (Last (OnOff TraceChainSyncProtocol)
      -> Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceChainSyncHeaderServer
-> Object -> Parser (Last (OnOff TraceChainSyncHeaderServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceChainSyncHeaderServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncHeaderServer) Object
v
      Parser
  (Last (OnOff TraceChainSyncProtocol)
   -> Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceChainSyncProtocol))
-> Parser
     (Last (OnOff TraceConnectionManager)
      -> Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceChainSyncProtocol
-> Object -> Parser (Last (OnOff TraceChainSyncProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceChainSyncProtocol) Object
v
      Parser
  (Last (OnOff TraceConnectionManager)
   -> Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceConnectionManager))
-> Parser
     (Last (OnOff TraceConnectionManagerCounters)
      -> Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceConnectionManager
-> Object -> Parser (Last (OnOff TraceConnectionManager))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceConnectionManager) Object
v
      Parser
  (Last (OnOff TraceConnectionManagerCounters)
   -> Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceConnectionManagerCounters))
-> Parser
     (Last (OnOff TraceConnectionManagerTransitions)
      -> Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceConnectionManagerCounters
-> Object -> Parser (Last (OnOff TraceConnectionManagerCounters))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceConnectionManagerCounters
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerCounters) Object
v
      Parser
  (Last (OnOff TraceConnectionManagerTransitions)
   -> Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceConnectionManagerTransitions))
-> Parser
     (Last (OnOff DebugPeerSelectionInitiator)
      -> Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceConnectionManagerTransitions
-> Object
-> Parser (Last (OnOff TraceConnectionManagerTransitions))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceConnectionManagerTransitions
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerTransitions) Object
v
      Parser
  (Last (OnOff DebugPeerSelectionInitiator)
   -> Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff DebugPeerSelectionInitiator))
-> Parser
     (Last (OnOff TraceDiffusionInitialization)
      -> Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy DebugPeerSelectionInitiator
-> Object -> Parser (Last (OnOff DebugPeerSelectionInitiator))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy DebugPeerSelectionInitiator
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiator) Object
v
      Parser
  (Last (OnOff TraceDiffusionInitialization)
   -> Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceDiffusionInitialization))
-> Parser
     (Last (OnOff DebugPeerSelectionInitiatorResponder)
      -> Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceDiffusionInitialization
-> Object -> Parser (Last (OnOff TraceDiffusionInitialization))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceDiffusionInitialization
forall k (t :: k). Proxy t
Proxy @TraceDiffusionInitialization) Object
v
      Parser
  (Last (OnOff DebugPeerSelectionInitiatorResponder)
   -> Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff DebugPeerSelectionInitiatorResponder))
-> Parser
     (Last (OnOff TraceDnsResolver)
      -> Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy DebugPeerSelectionInitiatorResponder
-> Object
-> Parser (Last (OnOff DebugPeerSelectionInitiatorResponder))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy DebugPeerSelectionInitiatorResponder
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiatorResponder) Object
v
      Parser
  (Last (OnOff TraceDnsResolver)
   -> Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceDnsResolver))
-> Parser
     (Last (OnOff TraceDnsSubscription)
      -> Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceDnsResolver
-> Object -> Parser (Last (OnOff TraceDnsResolver))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceDnsResolver
forall k (t :: k). Proxy t
Proxy @TraceDnsResolver) Object
v
      Parser
  (Last (OnOff TraceDnsSubscription)
   -> Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceDnsSubscription))
-> Parser
     (Last (OnOff TraceErrorPolicy)
      -> Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceDnsSubscription
-> Object -> Parser (Last (OnOff TraceDnsSubscription))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceDnsSubscription
forall k (t :: k). Proxy t
Proxy @TraceDnsSubscription) Object
v
      Parser
  (Last (OnOff TraceErrorPolicy)
   -> Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceErrorPolicy))
-> Parser
     (Last (OnOff TraceForge)
      -> Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceErrorPolicy
-> Object -> Parser (Last (OnOff TraceErrorPolicy))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceErrorPolicy) Object
v
      Parser
  (Last (OnOff TraceForge)
   -> Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceForge))
-> Parser
     (Last (OnOff TraceForgeStateInfo)
      -> Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceForge -> Object -> Parser (Last (OnOff TraceForge))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceForge
forall k (t :: k). Proxy t
Proxy @TraceForge) Object
v
      Parser
  (Last (OnOff TraceForgeStateInfo)
   -> Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceForgeStateInfo))
-> Parser
     (Last (OnOff TraceHandshake)
      -> Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceForgeStateInfo
-> Object -> Parser (Last (OnOff TraceForgeStateInfo))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceForgeStateInfo
forall k (t :: k). Proxy t
Proxy @TraceForgeStateInfo) Object
v
      Parser
  (Last (OnOff TraceHandshake)
   -> Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceHandshake))
-> Parser
     (Last (OnOff TraceInboundGovernor)
      -> Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceHandshake
-> Object -> Parser (Last (OnOff TraceHandshake))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceHandshake
forall k (t :: k). Proxy t
Proxy @TraceHandshake) Object
v
      Parser
  (Last (OnOff TraceInboundGovernor)
   -> Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceInboundGovernor))
-> Parser
     (Last (OnOff TraceInboundGovernorCounters)
      -> Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceInboundGovernor
-> Object -> Parser (Last (OnOff TraceInboundGovernor))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernor) Object
v
      Parser
  (Last (OnOff TraceInboundGovernorCounters)
   -> Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceInboundGovernorCounters))
-> Parser
     (Last (OnOff TraceInboundGovernorTransitions)
      -> Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceInboundGovernorCounters
-> Object -> Parser (Last (OnOff TraceInboundGovernorCounters))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceInboundGovernorCounters
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorCounters) Object
v
      Parser
  (Last (OnOff TraceInboundGovernorTransitions)
   -> Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceInboundGovernorTransitions))
-> Parser
     (Last (OnOff TraceIpSubscription)
      -> Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceInboundGovernorTransitions
-> Object -> Parser (Last (OnOff TraceInboundGovernorTransitions))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceInboundGovernorTransitions
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorTransitions) Object
v
      Parser
  (Last (OnOff TraceIpSubscription)
   -> Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceIpSubscription))
-> Parser
     (Last (OnOff TraceKeepAliveClient)
      -> Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceIpSubscription
-> Object -> Parser (Last (OnOff TraceIpSubscription))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceIpSubscription
forall k (t :: k). Proxy t
Proxy @TraceIpSubscription) Object
v
      Parser
  (Last (OnOff TraceKeepAliveClient)
   -> Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceKeepAliveClient))
-> Parser
     (Last (OnOff TraceLedgerPeers)
      -> Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceKeepAliveClient
-> Object -> Parser (Last (OnOff TraceKeepAliveClient))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceKeepAliveClient
forall k (t :: k). Proxy t
Proxy @TraceKeepAliveClient) Object
v
      Parser
  (Last (OnOff TraceLedgerPeers)
   -> Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLedgerPeers))
-> Parser
     (Last (OnOff TraceLocalChainSyncProtocol)
      -> Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLedgerPeers
-> Object -> Parser (Last (OnOff TraceLedgerPeers))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLedgerPeers
forall k (t :: k). Proxy t
Proxy @TraceLedgerPeers) Object
v
      Parser
  (Last (OnOff TraceLocalChainSyncProtocol)
   -> Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalChainSyncProtocol))
-> Parser
     (Last (OnOff TraceLocalConnectionManager)
      -> Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalChainSyncProtocol
-> Object -> Parser (Last (OnOff TraceLocalChainSyncProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalChainSyncProtocol) Object
v
      Parser
  (Last (OnOff TraceLocalConnectionManager)
   -> Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalConnectionManager))
-> Parser
     (Last (OnOff TraceLocalErrorPolicy)
      -> Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalConnectionManager
-> Object -> Parser (Last (OnOff TraceLocalConnectionManager))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceLocalConnectionManager) Object
v
      Parser
  (Last (OnOff TraceLocalErrorPolicy)
   -> Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalErrorPolicy))
-> Parser
     (Last (OnOff TraceLocalHandshake)
      -> Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalErrorPolicy
-> Object -> Parser (Last (OnOff TraceLocalErrorPolicy))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceLocalErrorPolicy) Object
v
      Parser
  (Last (OnOff TraceLocalHandshake)
   -> Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalHandshake))
-> Parser
     (Last (OnOff TraceLocalInboundGovernor)
      -> Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalHandshake
-> Object -> Parser (Last (OnOff TraceLocalHandshake))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalHandshake
forall k (t :: k). Proxy t
Proxy @TraceLocalHandshake) Object
v
      Parser
  (Last (OnOff TraceLocalInboundGovernor)
   -> Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalInboundGovernor))
-> Parser
     (Last (OnOff TraceLocalMux)
      -> Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalInboundGovernor
-> Object -> Parser (Last (OnOff TraceLocalInboundGovernor))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceLocalInboundGovernor) Object
v
      Parser
  (Last (OnOff TraceLocalMux)
   -> Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalMux))
-> Parser
     (Last (OnOff TraceLocalRootPeers)
      -> Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalMux
-> Object -> Parser (Last (OnOff TraceLocalMux))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalMux
forall k (t :: k). Proxy t
Proxy @TraceLocalMux) Object
v
      Parser
  (Last (OnOff TraceLocalRootPeers)
   -> Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalRootPeers))
-> Parser
     (Last (OnOff TraceLocalServer)
      -> Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalRootPeers
-> Object -> Parser (Last (OnOff TraceLocalRootPeers))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalRootPeers
forall k (t :: k). Proxy t
Proxy @TraceLocalRootPeers) Object
v
      Parser
  (Last (OnOff TraceLocalServer)
   -> Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalServer))
-> Parser
     (Last (OnOff TraceLocalStateQueryProtocol)
      -> Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalServer
-> Object -> Parser (Last (OnOff TraceLocalServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalServer
forall k (t :: k). Proxy t
Proxy @TraceLocalServer) Object
v
      Parser
  (Last (OnOff TraceLocalStateQueryProtocol)
   -> Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalStateQueryProtocol))
-> Parser
     (Last (OnOff TraceLocalTxMonitorProtocol)
      -> Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalStateQueryProtocol
-> Object -> Parser (Last (OnOff TraceLocalStateQueryProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalStateQueryProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalStateQueryProtocol) Object
v
      Parser
  (Last (OnOff TraceLocalTxMonitorProtocol)
   -> Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalTxMonitorProtocol))
-> Parser
     (Last (OnOff TraceLocalTxSubmissionProtocol)
      -> Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalTxMonitorProtocol
-> Object -> Parser (Last (OnOff TraceLocalTxMonitorProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalTxMonitorProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxMonitorProtocol) Object
v
      Parser
  (Last (OnOff TraceLocalTxSubmissionProtocol)
   -> Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalTxSubmissionProtocol))
-> Parser
     (Last (OnOff TraceLocalTxSubmissionServer)
      -> Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalTxSubmissionProtocol
-> Object -> Parser (Last (OnOff TraceLocalTxSubmissionProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionProtocol) Object
v
      Parser
  (Last (OnOff TraceLocalTxSubmissionServer)
   -> Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceLocalTxSubmissionServer))
-> Parser
     (Last (OnOff TraceMempool)
      -> Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceLocalTxSubmissionServer
-> Object -> Parser (Last (OnOff TraceLocalTxSubmissionServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceLocalTxSubmissionServer
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionServer) Object
v
      Parser
  (Last (OnOff TraceMempool)
   -> Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceMempool))
-> Parser
     (Last (OnOff TraceMux)
      -> Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceMempool -> Object -> Parser (Last (OnOff TraceMempool))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceMempool
forall k (t :: k). Proxy t
Proxy @TraceMempool) Object
v
      Parser
  (Last (OnOff TraceMux)
   -> Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceMux))
-> Parser
     (Last (OnOff TracePeerSelection)
      -> Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceMux -> Object -> Parser (Last (OnOff TraceMux))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceMux
forall k (t :: k). Proxy t
Proxy @TraceMux) Object
v
      Parser
  (Last (OnOff TracePeerSelection)
   -> Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TracePeerSelection))
-> Parser
     (Last (OnOff TracePeerSelectionCounters)
      -> Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TracePeerSelection
-> Object -> Parser (Last (OnOff TracePeerSelection))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TracePeerSelection
forall k (t :: k). Proxy t
Proxy @TracePeerSelection) Object
v
      Parser
  (Last (OnOff TracePeerSelectionCounters)
   -> Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TracePeerSelectionCounters))
-> Parser
     (Last (OnOff TracePeerSelectionActions)
      -> Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TracePeerSelectionCounters
-> Object -> Parser (Last (OnOff TracePeerSelectionCounters))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TracePeerSelectionCounters
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionCounters) Object
v
      Parser
  (Last (OnOff TracePeerSelectionActions)
   -> Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TracePeerSelectionActions))
-> Parser
     (Last (OnOff TracePublicRootPeers)
      -> Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TracePeerSelectionActions
-> Object -> Parser (Last (OnOff TracePeerSelectionActions))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TracePeerSelectionActions
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionActions) Object
v
      Parser
  (Last (OnOff TracePublicRootPeers)
   -> Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TracePublicRootPeers))
-> Parser
     (Last (OnOff TraceServer)
      -> Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TracePublicRootPeers
-> Object -> Parser (Last (OnOff TracePublicRootPeers))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TracePublicRootPeers
forall k (t :: k). Proxy t
Proxy @TracePublicRootPeers) Object
v
      Parser
  (Last (OnOff TraceServer)
   -> Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceServer))
-> Parser
     (Last (OnOff TraceTxInbound)
      -> Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceServer -> Object -> Parser (Last (OnOff TraceServer))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceServer
forall k (t :: k). Proxy t
Proxy @TraceServer) Object
v
      Parser
  (Last (OnOff TraceTxInbound)
   -> Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceTxInbound))
-> Parser
     (Last (OnOff TraceTxOutbound)
      -> Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceTxInbound
-> Object -> Parser (Last (OnOff TraceTxInbound))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceTxInbound
forall k (t :: k). Proxy t
Proxy @TraceTxInbound) Object
v
      Parser
  (Last (OnOff TraceTxOutbound)
   -> Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceTxOutbound))
-> Parser
     (Last (OnOff TraceTxSubmissionProtocol)
      -> Last (OnOff TraceTxSubmission2Protocol)
      -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceTxOutbound
-> Object -> Parser (Last (OnOff TraceTxOutbound))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceTxOutbound
forall k (t :: k). Proxy t
Proxy @TraceTxOutbound) Object
v
      Parser
  (Last (OnOff TraceTxSubmissionProtocol)
   -> Last (OnOff TraceTxSubmission2Protocol)
   -> PartialTraceSelection)
-> Parser (Last (OnOff TraceTxSubmissionProtocol))
-> Parser
     (Last (OnOff TraceTxSubmission2Protocol) -> PartialTraceSelection)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceTxSubmissionProtocol
-> Object -> Parser (Last (OnOff TraceTxSubmissionProtocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmissionProtocol) Object
v
      Parser
  (Last (OnOff TraceTxSubmission2Protocol) -> PartialTraceSelection)
-> Parser (Last (OnOff TraceTxSubmission2Protocol))
-> Parser PartialTraceSelection
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Proxy TraceTxSubmission2Protocol
-> Object -> Parser (Last (OnOff TraceTxSubmission2Protocol))
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer (Proxy TraceTxSubmission2Protocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmission2Protocol) Object
v


defaultPartialTraceConfiguration :: PartialTraceSelection
defaultPartialTraceConfiguration :: PartialTraceSelection
defaultPartialTraceConfiguration =
  PartialTraceSelection :: Last TracingVerbosity
-> Last (OnOff TraceAcceptPolicy)
-> Last (OnOff TraceBlockchainTime)
-> Last (OnOff TraceBlockFetchClient)
-> Last (OnOff TraceBlockFetchDecisions)
-> Last (OnOff TraceBlockFetchProtocol)
-> Last (OnOff TraceBlockFetchProtocolSerialised)
-> Last (OnOff TraceBlockFetchServer)
-> Last (OnOff TraceChainDB)
-> Last (OnOff TraceChainSyncBlockServer)
-> Last (OnOff TraceChainSyncClient)
-> Last (OnOff TraceChainSyncHeaderServer)
-> Last (OnOff TraceChainSyncProtocol)
-> Last (OnOff TraceConnectionManager)
-> Last (OnOff TraceConnectionManagerCounters)
-> Last (OnOff TraceConnectionManagerTransitions)
-> Last (OnOff DebugPeerSelectionInitiator)
-> Last (OnOff TraceDiffusionInitialization)
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
-> Last (OnOff TraceDnsResolver)
-> Last (OnOff TraceDnsSubscription)
-> Last (OnOff TraceErrorPolicy)
-> Last (OnOff TraceForge)
-> Last (OnOff TraceForgeStateInfo)
-> Last (OnOff TraceHandshake)
-> Last (OnOff TraceInboundGovernor)
-> Last (OnOff TraceInboundGovernorCounters)
-> Last (OnOff TraceInboundGovernorTransitions)
-> Last (OnOff TraceIpSubscription)
-> Last (OnOff TraceKeepAliveClient)
-> Last (OnOff TraceLedgerPeers)
-> Last (OnOff TraceLocalChainSyncProtocol)
-> Last (OnOff TraceLocalConnectionManager)
-> Last (OnOff TraceLocalErrorPolicy)
-> Last (OnOff TraceLocalHandshake)
-> Last (OnOff TraceLocalInboundGovernor)
-> Last (OnOff TraceLocalMux)
-> Last (OnOff TraceLocalRootPeers)
-> Last (OnOff TraceLocalServer)
-> Last (OnOff TraceLocalStateQueryProtocol)
-> Last (OnOff TraceLocalTxMonitorProtocol)
-> Last (OnOff TraceLocalTxSubmissionProtocol)
-> Last (OnOff TraceLocalTxSubmissionServer)
-> Last (OnOff TraceMempool)
-> Last (OnOff TraceMux)
-> Last (OnOff TracePeerSelection)
-> Last (OnOff TracePeerSelectionCounters)
-> Last (OnOff TracePeerSelectionActions)
-> Last (OnOff TracePublicRootPeers)
-> Last (OnOff TraceServer)
-> Last (OnOff TraceTxInbound)
-> Last (OnOff TraceTxOutbound)
-> Last (OnOff TraceTxSubmissionProtocol)
-> Last (OnOff TraceTxSubmission2Protocol)
-> PartialTraceSelection
PartialTraceSelection
    { pTraceVerbosity :: Last TracingVerbosity
pTraceVerbosity = Maybe TracingVerbosity -> Last TracingVerbosity
forall a. Maybe a -> Last a
Last (Maybe TracingVerbosity -> Last TracingVerbosity)
-> Maybe TracingVerbosity -> Last TracingVerbosity
forall a b. (a -> b) -> a -> b
$ TracingVerbosity -> Maybe TracingVerbosity
forall a. a -> Maybe a
Just TracingVerbosity
NormalVerbosity
    -- Per-trace toggles, alpha-sorted.
    , pTraceAcceptPolicy :: Last (OnOff TraceAcceptPolicy)
pTraceAcceptPolicy = OnOff TraceAcceptPolicy -> Last (OnOff TraceAcceptPolicy)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceAcceptPolicy -> Last (OnOff TraceAcceptPolicy))
-> OnOff TraceAcceptPolicy -> Last (OnOff TraceAcceptPolicy)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceAcceptPolicy
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceBlockchainTime :: Last (OnOff TraceBlockchainTime)
pTraceBlockchainTime = OnOff TraceBlockchainTime -> Last (OnOff TraceBlockchainTime)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockchainTime -> Last (OnOff TraceBlockchainTime))
-> OnOff TraceBlockchainTime -> Last (OnOff TraceBlockchainTime)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockchainTime
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceBlockFetchClient :: Last (OnOff TraceBlockFetchClient)
pTraceBlockFetchClient = OnOff TraceBlockFetchClient -> Last (OnOff TraceBlockFetchClient)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockFetchClient -> Last (OnOff TraceBlockFetchClient))
-> OnOff TraceBlockFetchClient
-> Last (OnOff TraceBlockFetchClient)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockFetchClient
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceBlockFetchDecisions :: Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchDecisions = OnOff TraceBlockFetchDecisions
-> Last (OnOff TraceBlockFetchDecisions)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockFetchDecisions
 -> Last (OnOff TraceBlockFetchDecisions))
-> OnOff TraceBlockFetchDecisions
-> Last (OnOff TraceBlockFetchDecisions)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockFetchDecisions
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceBlockFetchProtocol :: Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchProtocol = OnOff TraceBlockFetchProtocol
-> Last (OnOff TraceBlockFetchProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockFetchProtocol
 -> Last (OnOff TraceBlockFetchProtocol))
-> OnOff TraceBlockFetchProtocol
-> Last (OnOff TraceBlockFetchProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockFetchProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceBlockFetchProtocolSerialised :: Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocolSerialised = OnOff TraceBlockFetchProtocolSerialised
-> Last (OnOff TraceBlockFetchProtocolSerialised)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockFetchProtocolSerialised
 -> Last (OnOff TraceBlockFetchProtocolSerialised))
-> OnOff TraceBlockFetchProtocolSerialised
-> Last (OnOff TraceBlockFetchProtocolSerialised)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockFetchProtocolSerialised
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceBlockFetchServer :: Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchServer = OnOff TraceBlockFetchServer -> Last (OnOff TraceBlockFetchServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceBlockFetchServer -> Last (OnOff TraceBlockFetchServer))
-> OnOff TraceBlockFetchServer
-> Last (OnOff TraceBlockFetchServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceBlockFetchServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceChainDB :: Last (OnOff TraceChainDB)
pTraceChainDB = OnOff TraceChainDB -> Last (OnOff TraceChainDB)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceChainDB -> Last (OnOff TraceChainDB))
-> OnOff TraceChainDB -> Last (OnOff TraceChainDB)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceChainDB
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceChainSyncBlockServer :: Last (OnOff TraceChainSyncBlockServer)
pTraceChainSyncBlockServer = OnOff TraceChainSyncBlockServer
-> Last (OnOff TraceChainSyncBlockServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceChainSyncBlockServer
 -> Last (OnOff TraceChainSyncBlockServer))
-> OnOff TraceChainSyncBlockServer
-> Last (OnOff TraceChainSyncBlockServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceChainSyncBlockServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceChainSyncClient :: Last (OnOff TraceChainSyncClient)
pTraceChainSyncClient = OnOff TraceChainSyncClient -> Last (OnOff TraceChainSyncClient)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceChainSyncClient -> Last (OnOff TraceChainSyncClient))
-> OnOff TraceChainSyncClient -> Last (OnOff TraceChainSyncClient)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceChainSyncClient
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceChainSyncHeaderServer :: Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncHeaderServer = OnOff TraceChainSyncHeaderServer
-> Last (OnOff TraceChainSyncHeaderServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceChainSyncHeaderServer
 -> Last (OnOff TraceChainSyncHeaderServer))
-> OnOff TraceChainSyncHeaderServer
-> Last (OnOff TraceChainSyncHeaderServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceChainSyncHeaderServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceChainSyncProtocol :: Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncProtocol = OnOff TraceChainSyncProtocol -> Last (OnOff TraceChainSyncProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceChainSyncProtocol
 -> Last (OnOff TraceChainSyncProtocol))
-> OnOff TraceChainSyncProtocol
-> Last (OnOff TraceChainSyncProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceChainSyncProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceConnectionManager :: Last (OnOff TraceConnectionManager)
pTraceConnectionManager = OnOff TraceConnectionManager -> Last (OnOff TraceConnectionManager)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceConnectionManager
 -> Last (OnOff TraceConnectionManager))
-> OnOff TraceConnectionManager
-> Last (OnOff TraceConnectionManager)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceConnectionManager
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceConnectionManagerCounters :: Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManagerCounters = OnOff TraceConnectionManagerCounters
-> Last (OnOff TraceConnectionManagerCounters)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceConnectionManagerCounters
 -> Last (OnOff TraceConnectionManagerCounters))
-> OnOff TraceConnectionManagerCounters
-> Last (OnOff TraceConnectionManagerCounters)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceConnectionManagerCounters
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceConnectionManagerTransitions :: Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerTransitions = OnOff TraceConnectionManagerTransitions
-> Last (OnOff TraceConnectionManagerTransitions)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceConnectionManagerTransitions
 -> Last (OnOff TraceConnectionManagerTransitions))
-> OnOff TraceConnectionManagerTransitions
-> Last (OnOff TraceConnectionManagerTransitions)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceConnectionManagerTransitions
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceDebugPeerSelectionInitiatorTracer :: Last (OnOff DebugPeerSelectionInitiator)
pTraceDebugPeerSelectionInitiatorTracer = OnOff DebugPeerSelectionInitiator
-> Last (OnOff DebugPeerSelectionInitiator)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff DebugPeerSelectionInitiator
 -> Last (OnOff DebugPeerSelectionInitiator))
-> OnOff DebugPeerSelectionInitiator
-> Last (OnOff DebugPeerSelectionInitiator)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff DebugPeerSelectionInitiator
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceDebugPeerSelectionInitiatorResponderTracer :: Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDebugPeerSelectionInitiatorResponderTracer = OnOff DebugPeerSelectionInitiatorResponder
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff DebugPeerSelectionInitiatorResponder
 -> Last (OnOff DebugPeerSelectionInitiatorResponder))
-> OnOff DebugPeerSelectionInitiatorResponder
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff DebugPeerSelectionInitiatorResponder
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceDiffusionInitialization :: Last (OnOff TraceDiffusionInitialization)
pTraceDiffusionInitialization = OnOff TraceDiffusionInitialization
-> Last (OnOff TraceDiffusionInitialization)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceDiffusionInitialization
 -> Last (OnOff TraceDiffusionInitialization))
-> OnOff TraceDiffusionInitialization
-> Last (OnOff TraceDiffusionInitialization)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceDiffusionInitialization
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceDnsResolver :: Last (OnOff TraceDnsResolver)
pTraceDnsResolver = OnOff TraceDnsResolver -> Last (OnOff TraceDnsResolver)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceDnsResolver -> Last (OnOff TraceDnsResolver))
-> OnOff TraceDnsResolver -> Last (OnOff TraceDnsResolver)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceDnsResolver
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceDnsSubscription :: Last (OnOff TraceDnsSubscription)
pTraceDnsSubscription = OnOff TraceDnsSubscription -> Last (OnOff TraceDnsSubscription)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceDnsSubscription -> Last (OnOff TraceDnsSubscription))
-> OnOff TraceDnsSubscription -> Last (OnOff TraceDnsSubscription)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceDnsSubscription
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceErrorPolicy :: Last (OnOff TraceErrorPolicy)
pTraceErrorPolicy = OnOff TraceErrorPolicy -> Last (OnOff TraceErrorPolicy)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceErrorPolicy -> Last (OnOff TraceErrorPolicy))
-> OnOff TraceErrorPolicy -> Last (OnOff TraceErrorPolicy)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceErrorPolicy
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceForge :: Last (OnOff TraceForge)
pTraceForge = OnOff TraceForge -> Last (OnOff TraceForge)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceForge -> Last (OnOff TraceForge))
-> OnOff TraceForge -> Last (OnOff TraceForge)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceForge
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceForgeStateInfo :: Last (OnOff TraceForgeStateInfo)
pTraceForgeStateInfo = OnOff TraceForgeStateInfo -> Last (OnOff TraceForgeStateInfo)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceForgeStateInfo -> Last (OnOff TraceForgeStateInfo))
-> OnOff TraceForgeStateInfo -> Last (OnOff TraceForgeStateInfo)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceForgeStateInfo
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceHandshake :: Last (OnOff TraceHandshake)
pTraceHandshake = OnOff TraceHandshake -> Last (OnOff TraceHandshake)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceHandshake -> Last (OnOff TraceHandshake))
-> OnOff TraceHandshake -> Last (OnOff TraceHandshake)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceHandshake
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceInboundGovernor :: Last (OnOff TraceInboundGovernor)
pTraceInboundGovernor = OnOff TraceInboundGovernor -> Last (OnOff TraceInboundGovernor)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceInboundGovernor -> Last (OnOff TraceInboundGovernor))
-> OnOff TraceInboundGovernor -> Last (OnOff TraceInboundGovernor)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceInboundGovernor
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceInboundGovernorCounters :: Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernorCounters = OnOff TraceInboundGovernorCounters
-> Last (OnOff TraceInboundGovernorCounters)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceInboundGovernorCounters
 -> Last (OnOff TraceInboundGovernorCounters))
-> OnOff TraceInboundGovernorCounters
-> Last (OnOff TraceInboundGovernorCounters)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceInboundGovernorCounters
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceInboundGovernorTransitions :: Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorTransitions = OnOff TraceInboundGovernorTransitions
-> Last (OnOff TraceInboundGovernorTransitions)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceInboundGovernorTransitions
 -> Last (OnOff TraceInboundGovernorTransitions))
-> OnOff TraceInboundGovernorTransitions
-> Last (OnOff TraceInboundGovernorTransitions)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceInboundGovernorTransitions
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceIpSubscription :: Last (OnOff TraceIpSubscription)
pTraceIpSubscription = OnOff TraceIpSubscription -> Last (OnOff TraceIpSubscription)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceIpSubscription -> Last (OnOff TraceIpSubscription))
-> OnOff TraceIpSubscription -> Last (OnOff TraceIpSubscription)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceIpSubscription
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceKeepAliveClient :: Last (OnOff TraceKeepAliveClient)
pTraceKeepAliveClient = OnOff TraceKeepAliveClient -> Last (OnOff TraceKeepAliveClient)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceKeepAliveClient -> Last (OnOff TraceKeepAliveClient))
-> OnOff TraceKeepAliveClient -> Last (OnOff TraceKeepAliveClient)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceKeepAliveClient
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLedgerPeers :: Last (OnOff TraceLedgerPeers)
pTraceLedgerPeers = OnOff TraceLedgerPeers -> Last (OnOff TraceLedgerPeers)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLedgerPeers -> Last (OnOff TraceLedgerPeers))
-> OnOff TraceLedgerPeers -> Last (OnOff TraceLedgerPeers)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLedgerPeers
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalChainSyncProtocol :: Last (OnOff TraceLocalChainSyncProtocol)
pTraceLocalChainSyncProtocol = OnOff TraceLocalChainSyncProtocol
-> Last (OnOff TraceLocalChainSyncProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalChainSyncProtocol
 -> Last (OnOff TraceLocalChainSyncProtocol))
-> OnOff TraceLocalChainSyncProtocol
-> Last (OnOff TraceLocalChainSyncProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalChainSyncProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalConnectionManager :: Last (OnOff TraceLocalConnectionManager)
pTraceLocalConnectionManager = OnOff TraceLocalConnectionManager
-> Last (OnOff TraceLocalConnectionManager)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalConnectionManager
 -> Last (OnOff TraceLocalConnectionManager))
-> OnOff TraceLocalConnectionManager
-> Last (OnOff TraceLocalConnectionManager)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalConnectionManager
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalErrorPolicy :: Last (OnOff TraceLocalErrorPolicy)
pTraceLocalErrorPolicy = OnOff TraceLocalErrorPolicy -> Last (OnOff TraceLocalErrorPolicy)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalErrorPolicy -> Last (OnOff TraceLocalErrorPolicy))
-> OnOff TraceLocalErrorPolicy
-> Last (OnOff TraceLocalErrorPolicy)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalErrorPolicy
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceLocalHandshake :: Last (OnOff TraceLocalHandshake)
pTraceLocalHandshake = OnOff TraceLocalHandshake -> Last (OnOff TraceLocalHandshake)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalHandshake -> Last (OnOff TraceLocalHandshake))
-> OnOff TraceLocalHandshake -> Last (OnOff TraceLocalHandshake)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalHandshake
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalInboundGovernor :: Last (OnOff TraceLocalInboundGovernor)
pTraceLocalInboundGovernor = OnOff TraceLocalInboundGovernor
-> Last (OnOff TraceLocalInboundGovernor)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalInboundGovernor
 -> Last (OnOff TraceLocalInboundGovernor))
-> OnOff TraceLocalInboundGovernor
-> Last (OnOff TraceLocalInboundGovernor)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalInboundGovernor
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalMux :: Last (OnOff TraceLocalMux)
pTraceLocalMux = OnOff TraceLocalMux -> Last (OnOff TraceLocalMux)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalMux -> Last (OnOff TraceLocalMux))
-> OnOff TraceLocalMux -> Last (OnOff TraceLocalMux)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalMux
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalTxMonitorProtocol :: Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalTxMonitorProtocol = OnOff TraceLocalTxMonitorProtocol
-> Last (OnOff TraceLocalTxMonitorProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalTxMonitorProtocol
 -> Last (OnOff TraceLocalTxMonitorProtocol))
-> OnOff TraceLocalTxMonitorProtocol
-> Last (OnOff TraceLocalTxMonitorProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalTxMonitorProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalRootPeers :: Last (OnOff TraceLocalRootPeers)
pTraceLocalRootPeers = OnOff TraceLocalRootPeers -> Last (OnOff TraceLocalRootPeers)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalRootPeers -> Last (OnOff TraceLocalRootPeers))
-> OnOff TraceLocalRootPeers -> Last (OnOff TraceLocalRootPeers)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalRootPeers
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalServer :: Last (OnOff TraceLocalServer)
pTraceLocalServer = OnOff TraceLocalServer -> Last (OnOff TraceLocalServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalServer -> Last (OnOff TraceLocalServer))
-> OnOff TraceLocalServer -> Last (OnOff TraceLocalServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalStateQueryProtocol :: Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalStateQueryProtocol = OnOff TraceLocalStateQueryProtocol
-> Last (OnOff TraceLocalStateQueryProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalStateQueryProtocol
 -> Last (OnOff TraceLocalStateQueryProtocol))
-> OnOff TraceLocalStateQueryProtocol
-> Last (OnOff TraceLocalStateQueryProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalStateQueryProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalTxSubmissionProtocol :: Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxSubmissionProtocol = OnOff TraceLocalTxSubmissionProtocol
-> Last (OnOff TraceLocalTxSubmissionProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalTxSubmissionProtocol
 -> Last (OnOff TraceLocalTxSubmissionProtocol))
-> OnOff TraceLocalTxSubmissionProtocol
-> Last (OnOff TraceLocalTxSubmissionProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalTxSubmissionProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceLocalTxSubmissionServer :: Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionServer = OnOff TraceLocalTxSubmissionServer
-> Last (OnOff TraceLocalTxSubmissionServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceLocalTxSubmissionServer
 -> Last (OnOff TraceLocalTxSubmissionServer))
-> OnOff TraceLocalTxSubmissionServer
-> Last (OnOff TraceLocalTxSubmissionServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceLocalTxSubmissionServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceMempool :: Last (OnOff TraceMempool)
pTraceMempool = OnOff TraceMempool -> Last (OnOff TraceMempool)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceMempool -> Last (OnOff TraceMempool))
-> OnOff TraceMempool -> Last (OnOff TraceMempool)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceMempool
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTraceMux :: Last (OnOff TraceMux)
pTraceMux = OnOff TraceMux -> Last (OnOff TraceMux)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceMux -> Last (OnOff TraceMux))
-> OnOff TraceMux -> Last (OnOff TraceMux)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceMux
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTracePeerSelection :: Last (OnOff TracePeerSelection)
pTracePeerSelection = OnOff TracePeerSelection -> Last (OnOff TracePeerSelection)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TracePeerSelection -> Last (OnOff TracePeerSelection))
-> OnOff TracePeerSelection -> Last (OnOff TracePeerSelection)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TracePeerSelection
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTracePeerSelectionCounters :: Last (OnOff TracePeerSelectionCounters)
pTracePeerSelectionCounters = OnOff TracePeerSelectionCounters
-> Last (OnOff TracePeerSelectionCounters)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TracePeerSelectionCounters
 -> Last (OnOff TracePeerSelectionCounters))
-> OnOff TracePeerSelectionCounters
-> Last (OnOff TracePeerSelectionCounters)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TracePeerSelectionCounters
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTracePeerSelectionActions :: Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionActions = OnOff TracePeerSelectionActions
-> Last (OnOff TracePeerSelectionActions)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TracePeerSelectionActions
 -> Last (OnOff TracePeerSelectionActions))
-> OnOff TracePeerSelectionActions
-> Last (OnOff TracePeerSelectionActions)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TracePeerSelectionActions
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
True
    , pTracePublicRootPeers :: Last (OnOff TracePublicRootPeers)
pTracePublicRootPeers = OnOff TracePublicRootPeers -> Last (OnOff TracePublicRootPeers)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TracePublicRootPeers -> Last (OnOff TracePublicRootPeers))
-> OnOff TracePublicRootPeers -> Last (OnOff TracePublicRootPeers)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TracePublicRootPeers
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceServer :: Last (OnOff TraceServer)
pTraceServer = OnOff TraceServer -> Last (OnOff TraceServer)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceServer -> Last (OnOff TraceServer))
-> OnOff TraceServer -> Last (OnOff TraceServer)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceServer
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceTxInbound :: Last (OnOff TraceTxInbound)
pTraceTxInbound = OnOff TraceTxInbound -> Last (OnOff TraceTxInbound)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceTxInbound -> Last (OnOff TraceTxInbound))
-> OnOff TraceTxInbound -> Last (OnOff TraceTxInbound)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceTxInbound
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceTxOutbound :: Last (OnOff TraceTxOutbound)
pTraceTxOutbound = OnOff TraceTxOutbound -> Last (OnOff TraceTxOutbound)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceTxOutbound -> Last (OnOff TraceTxOutbound))
-> OnOff TraceTxOutbound -> Last (OnOff TraceTxOutbound)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceTxOutbound
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceTxSubmissionProtocol :: Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmissionProtocol = OnOff TraceTxSubmissionProtocol
-> Last (OnOff TraceTxSubmissionProtocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceTxSubmissionProtocol
 -> Last (OnOff TraceTxSubmissionProtocol))
-> OnOff TraceTxSubmissionProtocol
-> Last (OnOff TraceTxSubmissionProtocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceTxSubmissionProtocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    , pTraceTxSubmission2Protocol :: Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmission2Protocol = OnOff TraceTxSubmission2Protocol
-> Last (OnOff TraceTxSubmission2Protocol)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OnOff TraceTxSubmission2Protocol
 -> Last (OnOff TraceTxSubmission2Protocol))
-> OnOff TraceTxSubmission2Protocol
-> Last (OnOff TraceTxSubmission2Protocol)
forall a b. (a -> b) -> a -> b
$ Bool -> OnOff TraceTxSubmission2Protocol
forall (name :: Symbol). Bool -> OnOff name
OnOff Bool
False
    }


partialTraceSelectionToEither :: Last PartialTraceOptions -> Either Text TraceOptions
partialTraceSelectionToEither :: Last PartialTraceOptions -> Either Text TraceOptions
partialTraceSelectionToEither (Last Maybe PartialTraceOptions
Nothing) = TraceOptions -> Either Text TraceOptions
forall a b. b -> Either a b
Right TraceOptions
TracingOff
partialTraceSelectionToEither  (Last (Just PartialTraceOptions
PartialTracingOff)) = TraceOptions -> Either Text TraceOptions
forall a b. b -> Either a b
Right TraceOptions
TracingOff
partialTraceSelectionToEither (Last (Just (PartialTraceDispatcher PartialTraceSelection
pTraceSelection))) = do
   let PartialTraceSelection {Last TracingVerbosity
Last (OnOff DebugPeerSelectionInitiator)
Last (OnOff DebugPeerSelectionInitiatorResponder)
Last (OnOff TraceAcceptPolicy)
Last (OnOff TraceBlockFetchClient)
Last (OnOff TraceBlockFetchDecisions)
Last (OnOff TraceBlockFetchProtocol)
Last (OnOff TraceBlockFetchProtocolSerialised)
Last (OnOff TraceBlockFetchServer)
Last (OnOff TraceBlockchainTime)
Last (OnOff TraceChainDB)
Last (OnOff TraceChainSyncBlockServer)
Last (OnOff TraceChainSyncClient)
Last (OnOff TraceChainSyncHeaderServer)
Last (OnOff TraceChainSyncProtocol)
Last (OnOff TraceConnectionManager)
Last (OnOff TraceConnectionManagerCounters)
Last (OnOff TraceConnectionManagerTransitions)
Last (OnOff TraceDiffusionInitialization)
Last (OnOff TraceDnsResolver)
Last (OnOff TraceDnsSubscription)
Last (OnOff TraceErrorPolicy)
Last (OnOff TraceForge)
Last (OnOff TraceForgeStateInfo)
Last (OnOff TraceHandshake)
Last (OnOff TraceInboundGovernor)
Last (OnOff TraceInboundGovernorCounters)
Last (OnOff TraceInboundGovernorTransitions)
Last (OnOff TraceIpSubscription)
Last (OnOff TraceKeepAliveClient)
Last (OnOff TraceLedgerPeers)
Last (OnOff TraceLocalChainSyncProtocol)
Last (OnOff TraceLocalConnectionManager)
Last (OnOff TraceLocalErrorPolicy)
Last (OnOff TraceLocalHandshake)
Last (OnOff TraceLocalInboundGovernor)
Last (OnOff TraceLocalMux)
Last (OnOff TraceLocalRootPeers)
Last (OnOff TraceLocalServer)
Last (OnOff TraceLocalStateQueryProtocol)
Last (OnOff TraceLocalTxMonitorProtocol)
Last (OnOff TraceLocalTxSubmissionProtocol)
Last (OnOff TraceLocalTxSubmissionServer)
Last (OnOff TraceMempool)
Last (OnOff TraceMux)
Last (OnOff TracePeerSelection)
Last (OnOff TracePeerSelectionActions)
Last (OnOff TracePeerSelectionCounters)
Last (OnOff TracePublicRootPeers)
Last (OnOff TraceServer)
Last (OnOff TraceTxInbound)
Last (OnOff TraceTxOutbound)
Last (OnOff TraceTxSubmission2Protocol)
Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmission2Protocol :: Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmissionProtocol :: Last (OnOff TraceTxSubmissionProtocol)
pTraceTxOutbound :: Last (OnOff TraceTxOutbound)
pTraceTxInbound :: Last (OnOff TraceTxInbound)
pTraceServer :: Last (OnOff TraceServer)
pTracePublicRootPeers :: Last (OnOff TracePublicRootPeers)
pTracePeerSelectionActions :: Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionCounters :: Last (OnOff TracePeerSelectionCounters)
pTracePeerSelection :: Last (OnOff TracePeerSelection)
pTraceMux :: Last (OnOff TraceMux)
pTraceMempool :: Last (OnOff TraceMempool)
pTraceLocalTxSubmissionServer :: Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionProtocol :: Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxMonitorProtocol :: Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalStateQueryProtocol :: Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalServer :: Last (OnOff TraceLocalServer)
pTraceLocalRootPeers :: Last (OnOff TraceLocalRootPeers)
pTraceLocalMux :: Last (OnOff TraceLocalMux)
pTraceLocalInboundGovernor :: Last (OnOff TraceLocalInboundGovernor)
pTraceLocalHandshake :: Last (OnOff TraceLocalHandshake)
pTraceLocalErrorPolicy :: Last (OnOff TraceLocalErrorPolicy)
pTraceLocalConnectionManager :: Last (OnOff TraceLocalConnectionManager)
pTraceLocalChainSyncProtocol :: Last (OnOff TraceLocalChainSyncProtocol)
pTraceLedgerPeers :: Last (OnOff TraceLedgerPeers)
pTraceKeepAliveClient :: Last (OnOff TraceKeepAliveClient)
pTraceIpSubscription :: Last (OnOff TraceIpSubscription)
pTraceInboundGovernorTransitions :: Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorCounters :: Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernor :: Last (OnOff TraceInboundGovernor)
pTraceHandshake :: Last (OnOff TraceHandshake)
pTraceForgeStateInfo :: Last (OnOff TraceForgeStateInfo)
pTraceForge :: Last (OnOff TraceForge)
pTraceErrorPolicy :: Last (OnOff TraceErrorPolicy)
pTraceDnsSubscription :: Last (OnOff TraceDnsSubscription)
pTraceDnsResolver :: Last (OnOff TraceDnsResolver)
pTraceDebugPeerSelectionInitiatorResponderTracer :: Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDiffusionInitialization :: Last (OnOff TraceDiffusionInitialization)
pTraceDebugPeerSelectionInitiatorTracer :: Last (OnOff DebugPeerSelectionInitiator)
pTraceConnectionManagerTransitions :: Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerCounters :: Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManager :: Last (OnOff TraceConnectionManager)
pTraceChainSyncProtocol :: Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncHeaderServer :: Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncClient :: Last (OnOff TraceChainSyncClient)
pTraceChainSyncBlockServer :: Last (OnOff TraceChainSyncBlockServer)
pTraceChainDB :: Last (OnOff TraceChainDB)
pTraceBlockFetchServer :: Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchProtocolSerialised :: Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocol :: Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchDecisions :: Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchClient :: Last (OnOff TraceBlockFetchClient)
pTraceBlockchainTime :: Last (OnOff TraceBlockchainTime)
pTraceAcceptPolicy :: Last (OnOff TraceAcceptPolicy)
pTraceVerbosity :: Last TracingVerbosity
pTraceTxSubmission2Protocol :: PartialTraceSelection -> Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmissionProtocol :: PartialTraceSelection -> Last (OnOff TraceTxSubmissionProtocol)
pTraceTxOutbound :: PartialTraceSelection -> Last (OnOff TraceTxOutbound)
pTraceTxInbound :: PartialTraceSelection -> Last (OnOff TraceTxInbound)
pTraceServer :: PartialTraceSelection -> Last (OnOff TraceServer)
pTracePublicRootPeers :: PartialTraceSelection -> Last (OnOff TracePublicRootPeers)
pTracePeerSelectionActions :: PartialTraceSelection -> Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionCounters :: PartialTraceSelection -> Last (OnOff TracePeerSelectionCounters)
pTracePeerSelection :: PartialTraceSelection -> Last (OnOff TracePeerSelection)
pTraceMux :: PartialTraceSelection -> Last (OnOff TraceMux)
pTraceMempool :: PartialTraceSelection -> Last (OnOff TraceMempool)
pTraceLocalTxSubmissionServer :: PartialTraceSelection -> Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionProtocol :: PartialTraceSelection
-> Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxMonitorProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalStateQueryProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalServer :: PartialTraceSelection -> Last (OnOff TraceLocalServer)
pTraceLocalRootPeers :: PartialTraceSelection -> Last (OnOff TraceLocalRootPeers)
pTraceLocalMux :: PartialTraceSelection -> Last (OnOff TraceLocalMux)
pTraceLocalInboundGovernor :: PartialTraceSelection -> Last (OnOff TraceLocalInboundGovernor)
pTraceLocalHandshake :: PartialTraceSelection -> Last (OnOff TraceLocalHandshake)
pTraceLocalErrorPolicy :: PartialTraceSelection -> Last (OnOff TraceLocalErrorPolicy)
pTraceLocalConnectionManager :: PartialTraceSelection -> Last (OnOff TraceLocalConnectionManager)
pTraceLocalChainSyncProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalChainSyncProtocol)
pTraceLedgerPeers :: PartialTraceSelection -> Last (OnOff TraceLedgerPeers)
pTraceKeepAliveClient :: PartialTraceSelection -> Last (OnOff TraceKeepAliveClient)
pTraceIpSubscription :: PartialTraceSelection -> Last (OnOff TraceIpSubscription)
pTraceInboundGovernorTransitions :: PartialTraceSelection
-> Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorCounters :: PartialTraceSelection -> Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernor :: PartialTraceSelection -> Last (OnOff TraceInboundGovernor)
pTraceHandshake :: PartialTraceSelection -> Last (OnOff TraceHandshake)
pTraceForgeStateInfo :: PartialTraceSelection -> Last (OnOff TraceForgeStateInfo)
pTraceForge :: PartialTraceSelection -> Last (OnOff TraceForge)
pTraceErrorPolicy :: PartialTraceSelection -> Last (OnOff TraceErrorPolicy)
pTraceDnsSubscription :: PartialTraceSelection -> Last (OnOff TraceDnsSubscription)
pTraceDnsResolver :: PartialTraceSelection -> Last (OnOff TraceDnsResolver)
pTraceDebugPeerSelectionInitiatorResponderTracer :: PartialTraceSelection
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDiffusionInitialization :: PartialTraceSelection -> Last (OnOff TraceDiffusionInitialization)
pTraceDebugPeerSelectionInitiatorTracer :: PartialTraceSelection -> Last (OnOff DebugPeerSelectionInitiator)
pTraceConnectionManagerTransitions :: PartialTraceSelection
-> Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerCounters :: PartialTraceSelection
-> Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManager :: PartialTraceSelection -> Last (OnOff TraceConnectionManager)
pTraceChainSyncProtocol :: PartialTraceSelection -> Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncHeaderServer :: PartialTraceSelection -> Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncClient :: PartialTraceSelection -> Last (OnOff TraceChainSyncClient)
pTraceChainSyncBlockServer :: PartialTraceSelection -> Last (OnOff TraceChainSyncBlockServer)
pTraceChainDB :: PartialTraceSelection -> Last (OnOff TraceChainDB)
pTraceBlockFetchServer :: PartialTraceSelection -> Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchProtocolSerialised :: PartialTraceSelection
-> Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocol :: PartialTraceSelection -> Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchDecisions :: PartialTraceSelection -> Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchClient :: PartialTraceSelection -> Last (OnOff TraceBlockFetchClient)
pTraceBlockchainTime :: PartialTraceSelection -> Last (OnOff TraceBlockchainTime)
pTraceAcceptPolicy :: PartialTraceSelection -> Last (OnOff TraceAcceptPolicy)
pTraceVerbosity :: PartialTraceSelection -> Last TracingVerbosity
..} = PartialTraceSelection
defaultPartialTraceConfiguration PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
forall a. Semigroup a => a -> a -> a
<> PartialTraceSelection
pTraceSelection
   TracingVerbosity
traceVerbosity <- (String -> Text)
-> Either String TracingVerbosity -> Either Text TracingVerbosity
forall (p :: * -> * -> *) a b c.
Bifunctor p =>
(a -> b) -> p a c -> p b c
first String -> Text
Text.pack (Either String TracingVerbosity -> Either Text TracingVerbosity)
-> Either String TracingVerbosity -> Either Text TracingVerbosity
forall a b. (a -> b) -> a -> b
$ String -> Last TracingVerbosity -> Either String TracingVerbosity
forall a. String -> Last a -> Either String a
lastToEither String
"Default value not specified for TracingVerbosity" Last TracingVerbosity
pTraceVerbosity
   OnOff TraceAcceptPolicy
traceAcceptPolicy <- Proxy TraceAcceptPolicy
-> Last (OnOff TraceAcceptPolicy)
-> Either Text (OnOff TraceAcceptPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceAcceptPolicy
forall k (t :: k). Proxy t
Proxy @TraceAcceptPolicy) Last (OnOff TraceAcceptPolicy)
pTraceAcceptPolicy
   OnOff TraceBlockchainTime
traceBlockchainTime <- Proxy TraceBlockchainTime
-> Last (OnOff TraceBlockchainTime)
-> Either Text (OnOff TraceBlockchainTime)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockchainTime
forall k (t :: k). Proxy t
Proxy @TraceBlockchainTime) Last (OnOff TraceBlockchainTime)
pTraceBlockchainTime
   OnOff TraceBlockFetchClient
traceBlockFetchClient <- Proxy TraceBlockFetchClient
-> Last (OnOff TraceBlockFetchClient)
-> Either Text (OnOff TraceBlockFetchClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchClient
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchClient) Last (OnOff TraceBlockFetchClient)
pTraceBlockFetchClient
   OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions <- Proxy TraceBlockFetchDecisions
-> Last (OnOff TraceBlockFetchDecisions)
-> Either Text (OnOff TraceBlockFetchDecisions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchDecisions
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchDecisions) Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchDecisions
   OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol <- Proxy TraceBlockFetchProtocol
-> Last (OnOff TraceBlockFetchProtocol)
-> Either Text (OnOff TraceBlockFetchProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchProtocol
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocol) Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchProtocol
   OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised <- Proxy TraceBlockFetchProtocolSerialised
-> Last (OnOff TraceBlockFetchProtocolSerialised)
-> Either Text (OnOff TraceBlockFetchProtocolSerialised)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchProtocolSerialised
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocolSerialised) Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocolSerialised
   OnOff TraceBlockFetchServer
traceBlockFetchServer <- Proxy TraceBlockFetchServer
-> Last (OnOff TraceBlockFetchServer)
-> Either Text (OnOff TraceBlockFetchServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchServer
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchServer) Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchServer
   OnOff TraceChainDB
traceChainDB <- Proxy TraceChainDB
-> Last (OnOff TraceChainDB) -> Either Text (OnOff TraceChainDB)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainDB
forall k (t :: k). Proxy t
Proxy @TraceChainDB) Last (OnOff TraceChainDB)
pTraceChainDB
   OnOff TraceChainSyncClient
traceChainSyncClient <- Proxy TraceChainSyncClient
-> Last (OnOff TraceChainSyncClient)
-> Either Text (OnOff TraceChainSyncClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncClient
forall k (t :: k). Proxy t
Proxy @TraceChainSyncClient) Last (OnOff TraceChainSyncClient)
pTraceChainSyncClient
   OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer <- Proxy TraceChainSyncBlockServer
-> Last (OnOff TraceChainSyncBlockServer)
-> Either Text (OnOff TraceChainSyncBlockServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncBlockServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncBlockServer) Last (OnOff TraceChainSyncBlockServer)
pTraceChainSyncBlockServer
   OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer <- Proxy TraceChainSyncHeaderServer
-> Last (OnOff TraceChainSyncHeaderServer)
-> Either Text (OnOff TraceChainSyncHeaderServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncHeaderServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncHeaderServer) Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncHeaderServer
   OnOff TraceChainSyncProtocol
traceChainSyncProtocol <- Proxy TraceChainSyncProtocol
-> Last (OnOff TraceChainSyncProtocol)
-> Either Text (OnOff TraceChainSyncProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceChainSyncProtocol) Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncProtocol
   OnOff TraceConnectionManager
traceConnectionManager <- Proxy TraceConnectionManager
-> Last (OnOff TraceConnectionManager)
-> Either Text (OnOff TraceConnectionManager)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceConnectionManager) Last (OnOff TraceConnectionManager)
pTraceConnectionManager
   OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters <- Proxy TraceConnectionManagerCounters
-> Last (OnOff TraceConnectionManagerCounters)
-> Either Text (OnOff TraceConnectionManagerCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManagerCounters
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerCounters) Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManagerCounters
   OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions <- Proxy TraceConnectionManagerTransitions
-> Last (OnOff TraceConnectionManagerTransitions)
-> Either Text (OnOff TraceConnectionManagerTransitions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManagerTransitions
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerTransitions) Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerTransitions
   OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer <- Proxy DebugPeerSelectionInitiator
-> Last (OnOff DebugPeerSelectionInitiator)
-> Either Text (OnOff DebugPeerSelectionInitiator)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy DebugPeerSelectionInitiator
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiator) Last (OnOff DebugPeerSelectionInitiator)
pTraceDebugPeerSelectionInitiatorTracer
   OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer <- Proxy DebugPeerSelectionInitiatorResponder
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
-> Either Text (OnOff DebugPeerSelectionInitiatorResponder)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy DebugPeerSelectionInitiatorResponder
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiatorResponder) Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDebugPeerSelectionInitiatorResponderTracer
   OnOff TraceDiffusionInitialization
traceDiffusionInitialization <- Proxy TraceDiffusionInitialization
-> Last (OnOff TraceDiffusionInitialization)
-> Either Text (OnOff TraceDiffusionInitialization)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDiffusionInitialization
forall k (t :: k). Proxy t
Proxy @TraceDiffusionInitialization) Last (OnOff TraceDiffusionInitialization)
pTraceDiffusionInitialization
   OnOff TraceDnsResolver
traceDnsResolver <- Proxy TraceDnsResolver
-> Last (OnOff TraceDnsResolver)
-> Either Text (OnOff TraceDnsResolver)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDnsResolver
forall k (t :: k). Proxy t
Proxy @TraceDnsResolver) Last (OnOff TraceDnsResolver)
pTraceDnsResolver
   OnOff TraceDnsSubscription
traceDnsSubscription <- Proxy TraceDnsSubscription
-> Last (OnOff TraceDnsSubscription)
-> Either Text (OnOff TraceDnsSubscription)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDnsSubscription
forall k (t :: k). Proxy t
Proxy @TraceDnsSubscription) Last (OnOff TraceDnsSubscription)
pTraceDnsSubscription
   OnOff TraceErrorPolicy
traceErrorPolicy <- Proxy TraceErrorPolicy
-> Last (OnOff TraceErrorPolicy)
-> Either Text (OnOff TraceErrorPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceErrorPolicy) Last (OnOff TraceErrorPolicy)
pTraceErrorPolicy
   OnOff TraceForge
traceForge <- Proxy TraceForge
-> Last (OnOff TraceForge) -> Either Text (OnOff TraceForge)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceForge
forall k (t :: k). Proxy t
Proxy @TraceForge) Last (OnOff TraceForge)
pTraceForge
   OnOff TraceForgeStateInfo
traceForgeStateInfo <- Proxy TraceForgeStateInfo
-> Last (OnOff TraceForgeStateInfo)
-> Either Text (OnOff TraceForgeStateInfo)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceForgeStateInfo
forall k (t :: k). Proxy t
Proxy @TraceForgeStateInfo) Last (OnOff TraceForgeStateInfo)
pTraceForgeStateInfo
   OnOff TraceHandshake
traceHandshake <- Proxy TraceHandshake
-> Last (OnOff TraceHandshake)
-> Either Text (OnOff TraceHandshake)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceHandshake
forall k (t :: k). Proxy t
Proxy @TraceHandshake) Last (OnOff TraceHandshake)
pTraceHandshake
   OnOff TraceInboundGovernor
traceInboundGovernor <- Proxy TraceInboundGovernor
-> Last (OnOff TraceInboundGovernor)
-> Either Text (OnOff TraceInboundGovernor)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernor) Last (OnOff TraceInboundGovernor)
pTraceInboundGovernor
   OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters <- Proxy TraceInboundGovernorCounters
-> Last (OnOff TraceInboundGovernorCounters)
-> Either Text (OnOff TraceInboundGovernorCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernorCounters
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorCounters) Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernorCounters
   OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions <- Proxy TraceInboundGovernorTransitions
-> Last (OnOff TraceInboundGovernorTransitions)
-> Either Text (OnOff TraceInboundGovernorTransitions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernorTransitions
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorTransitions) Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorTransitions
   OnOff TraceIpSubscription
traceIpSubscription <- Proxy TraceIpSubscription
-> Last (OnOff TraceIpSubscription)
-> Either Text (OnOff TraceIpSubscription)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceIpSubscription
forall k (t :: k). Proxy t
Proxy @TraceIpSubscription) Last (OnOff TraceIpSubscription)
pTraceIpSubscription
   OnOff TraceKeepAliveClient
traceKeepAliveClient <- Proxy TraceKeepAliveClient
-> Last (OnOff TraceKeepAliveClient)
-> Either Text (OnOff TraceKeepAliveClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceKeepAliveClient
forall k (t :: k). Proxy t
Proxy @TraceKeepAliveClient) Last (OnOff TraceKeepAliveClient)
pTraceKeepAliveClient
   OnOff TraceLedgerPeers
traceLedgerPeers <- Proxy TraceLedgerPeers
-> Last (OnOff TraceLedgerPeers)
-> Either Text (OnOff TraceLedgerPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLedgerPeers
forall k (t :: k). Proxy t
Proxy @TraceLedgerPeers) Last (OnOff TraceLedgerPeers)
pTraceLedgerPeers
   OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol <- Proxy TraceLocalChainSyncProtocol
-> Last (OnOff TraceLocalChainSyncProtocol)
-> Either Text (OnOff TraceLocalChainSyncProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalChainSyncProtocol) Last (OnOff TraceLocalChainSyncProtocol)
pTraceLocalChainSyncProtocol
   OnOff TraceLocalConnectionManager
traceLocalConnectionManager <- Proxy TraceLocalConnectionManager
-> Last (OnOff TraceLocalConnectionManager)
-> Either Text (OnOff TraceLocalConnectionManager)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceLocalConnectionManager) Last (OnOff TraceLocalConnectionManager)
pTraceLocalConnectionManager
   OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy <- Proxy TraceLocalErrorPolicy
-> Last (OnOff TraceLocalErrorPolicy)
-> Either Text (OnOff TraceLocalErrorPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceLocalErrorPolicy) Last (OnOff TraceLocalErrorPolicy)
pTraceLocalErrorPolicy
   OnOff TraceLocalHandshake
traceLocalHandshake <- Proxy TraceLocalHandshake
-> Last (OnOff TraceLocalHandshake)
-> Either Text (OnOff TraceLocalHandshake)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalHandshake
forall k (t :: k). Proxy t
Proxy @TraceLocalHandshake) Last (OnOff TraceLocalHandshake)
pTraceLocalHandshake
   OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor <- Proxy TraceLocalInboundGovernor
-> Last (OnOff TraceLocalInboundGovernor)
-> Either Text (OnOff TraceLocalInboundGovernor)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceLocalInboundGovernor) Last (OnOff TraceLocalInboundGovernor)
pTraceLocalInboundGovernor
   OnOff TraceLocalMux
traceLocalMux <- Proxy TraceLocalMux
-> Last (OnOff TraceLocalMux) -> Either Text (OnOff TraceLocalMux)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalMux
forall k (t :: k). Proxy t
Proxy @TraceLocalMux) Last (OnOff TraceLocalMux)
pTraceLocalMux
   OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol <- Proxy TraceLocalTxMonitorProtocol
-> Last (OnOff TraceLocalTxMonitorProtocol)
-> Either Text (OnOff TraceLocalTxMonitorProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxMonitorProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxMonitorProtocol) Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalTxMonitorProtocol
   OnOff TraceLocalRootPeers
traceLocalRootPeers <- Proxy TraceLocalRootPeers
-> Last (OnOff TraceLocalRootPeers)
-> Either Text (OnOff TraceLocalRootPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalRootPeers
forall k (t :: k). Proxy t
Proxy @TraceLocalRootPeers) Last (OnOff TraceLocalRootPeers)
pTraceLocalRootPeers
   OnOff TraceLocalServer
traceLocalServer <- Proxy TraceLocalServer
-> Last (OnOff TraceLocalServer)
-> Either Text (OnOff TraceLocalServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalServer
forall k (t :: k). Proxy t
Proxy @TraceLocalServer) Last (OnOff TraceLocalServer)
pTraceLocalServer
   OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol <- Proxy TraceLocalStateQueryProtocol
-> Last (OnOff TraceLocalStateQueryProtocol)
-> Either Text (OnOff TraceLocalStateQueryProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalStateQueryProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalStateQueryProtocol) Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalStateQueryProtocol
   OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol <- Proxy TraceLocalTxSubmissionProtocol
-> Last (OnOff TraceLocalTxSubmissionProtocol)
-> Either Text (OnOff TraceLocalTxSubmissionProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionProtocol) Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxSubmissionProtocol
   OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer <- Proxy TraceLocalTxSubmissionServer
-> Last (OnOff TraceLocalTxSubmissionServer)
-> Either Text (OnOff TraceLocalTxSubmissionServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxSubmissionServer
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionServer) Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionServer
   OnOff TraceMempool
traceMempool <- Proxy TraceMempool
-> Last (OnOff TraceMempool) -> Either Text (OnOff TraceMempool)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceMempool
forall k (t :: k). Proxy t
Proxy @TraceMempool) Last (OnOff TraceMempool)
pTraceMempool
   OnOff TraceMux
traceMux <- Proxy TraceMux
-> Last (OnOff TraceMux) -> Either Text (OnOff TraceMux)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceMux
forall k (t :: k). Proxy t
Proxy @TraceMux) Last (OnOff TraceMux)
pTraceMux
   OnOff TracePeerSelection
tracePeerSelection <- Proxy TracePeerSelection
-> Last (OnOff TracePeerSelection)
-> Either Text (OnOff TracePeerSelection)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelection
forall k (t :: k). Proxy t
Proxy @TracePeerSelection) Last (OnOff TracePeerSelection)
pTracePeerSelection
   OnOff TracePeerSelectionCounters
tracePeerSelectionCounters <- Proxy TracePeerSelectionCounters
-> Last (OnOff TracePeerSelectionCounters)
-> Either Text (OnOff TracePeerSelectionCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelectionCounters
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionCounters) Last (OnOff TracePeerSelectionCounters)
pTracePeerSelectionCounters
   OnOff TracePeerSelectionActions
tracePeerSelectionActions <- Proxy TracePeerSelectionActions
-> Last (OnOff TracePeerSelectionActions)
-> Either Text (OnOff TracePeerSelectionActions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelectionActions
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionActions) Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionActions
   OnOff TracePublicRootPeers
tracePublicRootPeers <- Proxy TracePublicRootPeers
-> Last (OnOff TracePublicRootPeers)
-> Either Text (OnOff TracePublicRootPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePublicRootPeers
forall k (t :: k). Proxy t
Proxy @TracePublicRootPeers) Last (OnOff TracePublicRootPeers)
pTracePublicRootPeers
   OnOff TraceServer
traceServer <- Proxy TraceServer
-> Last (OnOff TraceServer) -> Either Text (OnOff TraceServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceServer
forall k (t :: k). Proxy t
Proxy @TraceServer) Last (OnOff TraceServer)
pTraceServer
   OnOff TraceTxInbound
traceTxInbound <- Proxy TraceTxInbound
-> Last (OnOff TraceTxInbound)
-> Either Text (OnOff TraceTxInbound)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxInbound
forall k (t :: k). Proxy t
Proxy @TraceTxInbound) Last (OnOff TraceTxInbound)
pTraceTxInbound
   OnOff TraceTxOutbound
traceTxOutbound <- Proxy TraceTxOutbound
-> Last (OnOff TraceTxOutbound)
-> Either Text (OnOff TraceTxOutbound)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxOutbound
forall k (t :: k). Proxy t
Proxy @TraceTxOutbound) Last (OnOff TraceTxOutbound)
pTraceTxOutbound
   OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol <- Proxy TraceTxSubmissionProtocol
-> Last (OnOff TraceTxSubmissionProtocol)
-> Either Text (OnOff TraceTxSubmissionProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmissionProtocol) Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmissionProtocol
   OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol <- Proxy TraceTxSubmission2Protocol
-> Last (OnOff TraceTxSubmission2Protocol)
-> Either Text (OnOff TraceTxSubmission2Protocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxSubmission2Protocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmission2Protocol) Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmission2Protocol
   TraceOptions -> Either Text TraceOptions
forall a b. b -> Either a b
Right (TraceOptions -> Either Text TraceOptions)
-> TraceOptions -> Either Text TraceOptions
forall a b. (a -> b) -> a -> b
$ TraceSelection -> TraceOptions
TraceDispatcher (TraceSelection -> TraceOptions) -> TraceSelection -> TraceOptions
forall a b. (a -> b) -> a -> b
$ TraceSelection :: TracingVerbosity
-> OnOff TraceAcceptPolicy
-> OnOff TraceBlockFetchClient
-> OnOff TraceBlockFetchDecisions
-> OnOff TraceBlockFetchProtocol
-> OnOff TraceBlockFetchProtocolSerialised
-> OnOff TraceBlockFetchServer
-> OnOff TraceBlockchainTime
-> OnOff TraceChainDB
-> OnOff TraceChainSyncBlockServer
-> OnOff TraceChainSyncClient
-> OnOff TraceChainSyncHeaderServer
-> OnOff TraceChainSyncProtocol
-> OnOff TraceConnectionManager
-> OnOff TraceConnectionManagerCounters
-> OnOff TraceConnectionManagerTransitions
-> OnOff DebugPeerSelectionInitiator
-> OnOff DebugPeerSelectionInitiatorResponder
-> OnOff TraceDiffusionInitialization
-> OnOff TraceDnsResolver
-> OnOff TraceDnsSubscription
-> OnOff TraceErrorPolicy
-> OnOff TraceForge
-> OnOff TraceForgeStateInfo
-> OnOff TraceHandshake
-> OnOff TraceInboundGovernor
-> OnOff TraceInboundGovernorCounters
-> OnOff TraceInboundGovernorTransitions
-> OnOff TraceIpSubscription
-> OnOff TraceKeepAliveClient
-> OnOff TraceLedgerPeers
-> OnOff TraceLocalChainSyncProtocol
-> OnOff TraceLocalConnectionManager
-> OnOff TraceLocalErrorPolicy
-> OnOff TraceLocalHandshake
-> OnOff TraceLocalInboundGovernor
-> OnOff TraceLocalMux
-> OnOff TraceLocalRootPeers
-> OnOff TraceLocalServer
-> OnOff TraceLocalStateQueryProtocol
-> OnOff TraceLocalTxMonitorProtocol
-> OnOff TraceLocalTxSubmissionProtocol
-> OnOff TraceLocalTxSubmissionServer
-> OnOff TraceMempool
-> OnOff TraceMux
-> OnOff TracePeerSelection
-> OnOff TracePeerSelectionCounters
-> OnOff TracePeerSelectionActions
-> OnOff TracePublicRootPeers
-> OnOff TraceServer
-> OnOff TraceTxInbound
-> OnOff TraceTxOutbound
-> OnOff TraceTxSubmissionProtocol
-> OnOff TraceTxSubmission2Protocol
-> TraceSelection
TraceSelection
             { traceVerbosity :: TracingVerbosity
traceVerbosity = TracingVerbosity
traceVerbosity
             , traceAcceptPolicy :: OnOff TraceAcceptPolicy
traceAcceptPolicy = OnOff TraceAcceptPolicy
traceAcceptPolicy
             , traceBlockFetchClient :: OnOff TraceBlockFetchClient
traceBlockFetchClient = OnOff TraceBlockFetchClient
traceBlockFetchClient
             , traceBlockFetchDecisions :: OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions = OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions
             , traceBlockFetchProtocol :: OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol = OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol
             , traceBlockFetchProtocolSerialised :: OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised = OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised
             , traceBlockFetchServer :: OnOff TraceBlockFetchServer
traceBlockFetchServer = OnOff TraceBlockFetchServer
traceBlockFetchServer
             , traceBlockchainTime :: OnOff TraceBlockchainTime
traceBlockchainTime = OnOff TraceBlockchainTime
traceBlockchainTime
             , traceChainDB :: OnOff TraceChainDB
traceChainDB = OnOff TraceChainDB
traceChainDB
             , traceChainSyncBlockServer :: OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer = OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer
             , traceChainSyncClient :: OnOff TraceChainSyncClient
traceChainSyncClient = OnOff TraceChainSyncClient
traceChainSyncClient
             , traceChainSyncHeaderServer :: OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer = OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer
             , traceChainSyncProtocol :: OnOff TraceChainSyncProtocol
traceChainSyncProtocol = OnOff TraceChainSyncProtocol
traceChainSyncProtocol
             , traceConnectionManager :: OnOff TraceConnectionManager
traceConnectionManager = OnOff TraceConnectionManager
traceConnectionManager
             , traceConnectionManagerCounters :: OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters = OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters
             , traceConnectionManagerTransitions :: OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions = OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions
             , traceDebugPeerSelectionInitiatorTracer :: OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer = OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer
             , traceDebugPeerSelectionInitiatorResponderTracer :: OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer = OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer
             , traceDiffusionInitialization :: OnOff TraceDiffusionInitialization
traceDiffusionInitialization = OnOff TraceDiffusionInitialization
traceDiffusionInitialization
             , traceDnsResolver :: OnOff TraceDnsResolver
traceDnsResolver = OnOff TraceDnsResolver
traceDnsResolver
             , traceDnsSubscription :: OnOff TraceDnsSubscription
traceDnsSubscription = OnOff TraceDnsSubscription
traceDnsSubscription
             , traceErrorPolicy :: OnOff TraceErrorPolicy
traceErrorPolicy = OnOff TraceErrorPolicy
traceErrorPolicy
             , traceForge :: OnOff TraceForge
traceForge = OnOff TraceForge
traceForge
             , traceForgeStateInfo :: OnOff TraceForgeStateInfo
traceForgeStateInfo = OnOff TraceForgeStateInfo
traceForgeStateInfo
             , traceHandshake :: OnOff TraceHandshake
traceHandshake = OnOff TraceHandshake
traceHandshake
             , traceInboundGovernor :: OnOff TraceInboundGovernor
traceInboundGovernor = OnOff TraceInboundGovernor
traceInboundGovernor
             , traceInboundGovernorCounters :: OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters = OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters
             , traceInboundGovernorTransitions :: OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions = OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions
             , traceIpSubscription :: OnOff TraceIpSubscription
traceIpSubscription = OnOff TraceIpSubscription
traceIpSubscription
             , traceKeepAliveClient :: OnOff TraceKeepAliveClient
traceKeepAliveClient = OnOff TraceKeepAliveClient
traceKeepAliveClient
             , traceLedgerPeers :: OnOff TraceLedgerPeers
traceLedgerPeers = OnOff TraceLedgerPeers
traceLedgerPeers
             , traceLocalChainSyncProtocol :: OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol = OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol
             , traceLocalConnectionManager :: OnOff TraceLocalConnectionManager
traceLocalConnectionManager = OnOff TraceLocalConnectionManager
traceLocalConnectionManager
             , traceLocalErrorPolicy :: OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy = OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy
             , traceLocalHandshake :: OnOff TraceLocalHandshake
traceLocalHandshake = OnOff TraceLocalHandshake
traceLocalHandshake
             , traceLocalInboundGovernor :: OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor = OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor
             , traceLocalMux :: OnOff TraceLocalMux
traceLocalMux = OnOff TraceLocalMux
traceLocalMux
             , traceLocalTxMonitorProtocol :: OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol = OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol
             , traceLocalRootPeers :: OnOff TraceLocalRootPeers
traceLocalRootPeers = OnOff TraceLocalRootPeers
traceLocalRootPeers
             , traceLocalServer :: OnOff TraceLocalServer
traceLocalServer = OnOff TraceLocalServer
traceLocalServer
             , traceLocalStateQueryProtocol :: OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol = OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol
             , traceLocalTxSubmissionProtocol :: OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol = OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol
             , traceLocalTxSubmissionServer :: OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer = OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer
             , traceMempool :: OnOff TraceMempool
traceMempool = OnOff TraceMempool
traceMempool
             , traceMux :: OnOff TraceMux
traceMux = OnOff TraceMux
traceMux
             , tracePeerSelection :: OnOff TracePeerSelection
tracePeerSelection = OnOff TracePeerSelection
tracePeerSelection
             , tracePeerSelectionCounters :: OnOff TracePeerSelectionCounters
tracePeerSelectionCounters = OnOff TracePeerSelectionCounters
tracePeerSelectionCounters
             , tracePeerSelectionActions :: OnOff TracePeerSelectionActions
tracePeerSelectionActions = OnOff TracePeerSelectionActions
tracePeerSelectionActions
             , tracePublicRootPeers :: OnOff TracePublicRootPeers
tracePublicRootPeers = OnOff TracePublicRootPeers
tracePublicRootPeers
             , traceServer :: OnOff TraceServer
traceServer = OnOff TraceServer
traceServer
             , traceTxInbound :: OnOff TraceTxInbound
traceTxInbound = OnOff TraceTxInbound
traceTxInbound
             , traceTxOutbound :: OnOff TraceTxOutbound
traceTxOutbound = OnOff TraceTxOutbound
traceTxOutbound
             , traceTxSubmissionProtocol :: OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol = OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol
             , traceTxSubmission2Protocol :: OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol = OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol
             }

partialTraceSelectionToEither (Last (Just (PartialTracingOnLegacy PartialTraceSelection
pTraceSelection))) = do
  -- This will be removed once the old tracing system is deprecated.
  let PartialTraceSelection {Last TracingVerbosity
Last (OnOff DebugPeerSelectionInitiator)
Last (OnOff DebugPeerSelectionInitiatorResponder)
Last (OnOff TraceAcceptPolicy)
Last (OnOff TraceBlockFetchClient)
Last (OnOff TraceBlockFetchDecisions)
Last (OnOff TraceBlockFetchProtocol)
Last (OnOff TraceBlockFetchProtocolSerialised)
Last (OnOff TraceBlockFetchServer)
Last (OnOff TraceBlockchainTime)
Last (OnOff TraceChainDB)
Last (OnOff TraceChainSyncBlockServer)
Last (OnOff TraceChainSyncClient)
Last (OnOff TraceChainSyncHeaderServer)
Last (OnOff TraceChainSyncProtocol)
Last (OnOff TraceConnectionManager)
Last (OnOff TraceConnectionManagerCounters)
Last (OnOff TraceConnectionManagerTransitions)
Last (OnOff TraceDiffusionInitialization)
Last (OnOff TraceDnsResolver)
Last (OnOff TraceDnsSubscription)
Last (OnOff TraceErrorPolicy)
Last (OnOff TraceForge)
Last (OnOff TraceForgeStateInfo)
Last (OnOff TraceHandshake)
Last (OnOff TraceInboundGovernor)
Last (OnOff TraceInboundGovernorCounters)
Last (OnOff TraceInboundGovernorTransitions)
Last (OnOff TraceIpSubscription)
Last (OnOff TraceKeepAliveClient)
Last (OnOff TraceLedgerPeers)
Last (OnOff TraceLocalChainSyncProtocol)
Last (OnOff TraceLocalConnectionManager)
Last (OnOff TraceLocalErrorPolicy)
Last (OnOff TraceLocalHandshake)
Last (OnOff TraceLocalInboundGovernor)
Last (OnOff TraceLocalMux)
Last (OnOff TraceLocalRootPeers)
Last (OnOff TraceLocalServer)
Last (OnOff TraceLocalStateQueryProtocol)
Last (OnOff TraceLocalTxMonitorProtocol)
Last (OnOff TraceLocalTxSubmissionProtocol)
Last (OnOff TraceLocalTxSubmissionServer)
Last (OnOff TraceMempool)
Last (OnOff TraceMux)
Last (OnOff TracePeerSelection)
Last (OnOff TracePeerSelectionActions)
Last (OnOff TracePeerSelectionCounters)
Last (OnOff TracePublicRootPeers)
Last (OnOff TraceServer)
Last (OnOff TraceTxInbound)
Last (OnOff TraceTxOutbound)
Last (OnOff TraceTxSubmission2Protocol)
Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmission2Protocol :: Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmissionProtocol :: Last (OnOff TraceTxSubmissionProtocol)
pTraceTxOutbound :: Last (OnOff TraceTxOutbound)
pTraceTxInbound :: Last (OnOff TraceTxInbound)
pTraceServer :: Last (OnOff TraceServer)
pTracePublicRootPeers :: Last (OnOff TracePublicRootPeers)
pTracePeerSelectionActions :: Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionCounters :: Last (OnOff TracePeerSelectionCounters)
pTracePeerSelection :: Last (OnOff TracePeerSelection)
pTraceMux :: Last (OnOff TraceMux)
pTraceMempool :: Last (OnOff TraceMempool)
pTraceLocalTxSubmissionServer :: Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionProtocol :: Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxMonitorProtocol :: Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalStateQueryProtocol :: Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalServer :: Last (OnOff TraceLocalServer)
pTraceLocalRootPeers :: Last (OnOff TraceLocalRootPeers)
pTraceLocalMux :: Last (OnOff TraceLocalMux)
pTraceLocalInboundGovernor :: Last (OnOff TraceLocalInboundGovernor)
pTraceLocalHandshake :: Last (OnOff TraceLocalHandshake)
pTraceLocalErrorPolicy :: Last (OnOff TraceLocalErrorPolicy)
pTraceLocalConnectionManager :: Last (OnOff TraceLocalConnectionManager)
pTraceLocalChainSyncProtocol :: Last (OnOff TraceLocalChainSyncProtocol)
pTraceLedgerPeers :: Last (OnOff TraceLedgerPeers)
pTraceKeepAliveClient :: Last (OnOff TraceKeepAliveClient)
pTraceIpSubscription :: Last (OnOff TraceIpSubscription)
pTraceInboundGovernorTransitions :: Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorCounters :: Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernor :: Last (OnOff TraceInboundGovernor)
pTraceHandshake :: Last (OnOff TraceHandshake)
pTraceForgeStateInfo :: Last (OnOff TraceForgeStateInfo)
pTraceForge :: Last (OnOff TraceForge)
pTraceErrorPolicy :: Last (OnOff TraceErrorPolicy)
pTraceDnsSubscription :: Last (OnOff TraceDnsSubscription)
pTraceDnsResolver :: Last (OnOff TraceDnsResolver)
pTraceDebugPeerSelectionInitiatorResponderTracer :: Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDiffusionInitialization :: Last (OnOff TraceDiffusionInitialization)
pTraceDebugPeerSelectionInitiatorTracer :: Last (OnOff DebugPeerSelectionInitiator)
pTraceConnectionManagerTransitions :: Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerCounters :: Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManager :: Last (OnOff TraceConnectionManager)
pTraceChainSyncProtocol :: Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncHeaderServer :: Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncClient :: Last (OnOff TraceChainSyncClient)
pTraceChainSyncBlockServer :: Last (OnOff TraceChainSyncBlockServer)
pTraceChainDB :: Last (OnOff TraceChainDB)
pTraceBlockFetchServer :: Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchProtocolSerialised :: Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocol :: Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchDecisions :: Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchClient :: Last (OnOff TraceBlockFetchClient)
pTraceBlockchainTime :: Last (OnOff TraceBlockchainTime)
pTraceAcceptPolicy :: Last (OnOff TraceAcceptPolicy)
pTraceVerbosity :: Last TracingVerbosity
pTraceTxSubmission2Protocol :: PartialTraceSelection -> Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmissionProtocol :: PartialTraceSelection -> Last (OnOff TraceTxSubmissionProtocol)
pTraceTxOutbound :: PartialTraceSelection -> Last (OnOff TraceTxOutbound)
pTraceTxInbound :: PartialTraceSelection -> Last (OnOff TraceTxInbound)
pTraceServer :: PartialTraceSelection -> Last (OnOff TraceServer)
pTracePublicRootPeers :: PartialTraceSelection -> Last (OnOff TracePublicRootPeers)
pTracePeerSelectionActions :: PartialTraceSelection -> Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionCounters :: PartialTraceSelection -> Last (OnOff TracePeerSelectionCounters)
pTracePeerSelection :: PartialTraceSelection -> Last (OnOff TracePeerSelection)
pTraceMux :: PartialTraceSelection -> Last (OnOff TraceMux)
pTraceMempool :: PartialTraceSelection -> Last (OnOff TraceMempool)
pTraceLocalTxSubmissionServer :: PartialTraceSelection -> Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionProtocol :: PartialTraceSelection
-> Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxMonitorProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalStateQueryProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalServer :: PartialTraceSelection -> Last (OnOff TraceLocalServer)
pTraceLocalRootPeers :: PartialTraceSelection -> Last (OnOff TraceLocalRootPeers)
pTraceLocalMux :: PartialTraceSelection -> Last (OnOff TraceLocalMux)
pTraceLocalInboundGovernor :: PartialTraceSelection -> Last (OnOff TraceLocalInboundGovernor)
pTraceLocalHandshake :: PartialTraceSelection -> Last (OnOff TraceLocalHandshake)
pTraceLocalErrorPolicy :: PartialTraceSelection -> Last (OnOff TraceLocalErrorPolicy)
pTraceLocalConnectionManager :: PartialTraceSelection -> Last (OnOff TraceLocalConnectionManager)
pTraceLocalChainSyncProtocol :: PartialTraceSelection -> Last (OnOff TraceLocalChainSyncProtocol)
pTraceLedgerPeers :: PartialTraceSelection -> Last (OnOff TraceLedgerPeers)
pTraceKeepAliveClient :: PartialTraceSelection -> Last (OnOff TraceKeepAliveClient)
pTraceIpSubscription :: PartialTraceSelection -> Last (OnOff TraceIpSubscription)
pTraceInboundGovernorTransitions :: PartialTraceSelection
-> Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorCounters :: PartialTraceSelection -> Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernor :: PartialTraceSelection -> Last (OnOff TraceInboundGovernor)
pTraceHandshake :: PartialTraceSelection -> Last (OnOff TraceHandshake)
pTraceForgeStateInfo :: PartialTraceSelection -> Last (OnOff TraceForgeStateInfo)
pTraceForge :: PartialTraceSelection -> Last (OnOff TraceForge)
pTraceErrorPolicy :: PartialTraceSelection -> Last (OnOff TraceErrorPolicy)
pTraceDnsSubscription :: PartialTraceSelection -> Last (OnOff TraceDnsSubscription)
pTraceDnsResolver :: PartialTraceSelection -> Last (OnOff TraceDnsResolver)
pTraceDebugPeerSelectionInitiatorResponderTracer :: PartialTraceSelection
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDiffusionInitialization :: PartialTraceSelection -> Last (OnOff TraceDiffusionInitialization)
pTraceDebugPeerSelectionInitiatorTracer :: PartialTraceSelection -> Last (OnOff DebugPeerSelectionInitiator)
pTraceConnectionManagerTransitions :: PartialTraceSelection
-> Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerCounters :: PartialTraceSelection
-> Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManager :: PartialTraceSelection -> Last (OnOff TraceConnectionManager)
pTraceChainSyncProtocol :: PartialTraceSelection -> Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncHeaderServer :: PartialTraceSelection -> Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncClient :: PartialTraceSelection -> Last (OnOff TraceChainSyncClient)
pTraceChainSyncBlockServer :: PartialTraceSelection -> Last (OnOff TraceChainSyncBlockServer)
pTraceChainDB :: PartialTraceSelection -> Last (OnOff TraceChainDB)
pTraceBlockFetchServer :: PartialTraceSelection -> Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchProtocolSerialised :: PartialTraceSelection
-> Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocol :: PartialTraceSelection -> Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchDecisions :: PartialTraceSelection -> Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchClient :: PartialTraceSelection -> Last (OnOff TraceBlockFetchClient)
pTraceBlockchainTime :: PartialTraceSelection -> Last (OnOff TraceBlockchainTime)
pTraceAcceptPolicy :: PartialTraceSelection -> Last (OnOff TraceAcceptPolicy)
pTraceVerbosity :: PartialTraceSelection -> Last TracingVerbosity
..} = PartialTraceSelection
defaultPartialTraceConfiguration PartialTraceSelection
-> PartialTraceSelection -> PartialTraceSelection
forall a. Semigroup a => a -> a -> a
<> PartialTraceSelection
pTraceSelection
  TracingVerbosity
traceVerbosity <- (String -> Text)
-> Either String TracingVerbosity -> Either Text TracingVerbosity
forall (p :: * -> * -> *) a b c.
Bifunctor p =>
(a -> b) -> p a c -> p b c
first String -> Text
Text.pack (Either String TracingVerbosity -> Either Text TracingVerbosity)
-> Either String TracingVerbosity -> Either Text TracingVerbosity
forall a b. (a -> b) -> a -> b
$ String -> Last TracingVerbosity -> Either String TracingVerbosity
forall a. String -> Last a -> Either String a
lastToEither String
"Default value not specified for TracingVerbosity" Last TracingVerbosity
pTraceVerbosity
  OnOff TraceAcceptPolicy
traceAcceptPolicy <- Proxy TraceAcceptPolicy
-> Last (OnOff TraceAcceptPolicy)
-> Either Text (OnOff TraceAcceptPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceAcceptPolicy
forall k (t :: k). Proxy t
Proxy @TraceAcceptPolicy) Last (OnOff TraceAcceptPolicy)
pTraceAcceptPolicy
  OnOff TraceBlockchainTime
traceBlockchainTime <- Proxy TraceBlockchainTime
-> Last (OnOff TraceBlockchainTime)
-> Either Text (OnOff TraceBlockchainTime)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockchainTime
forall k (t :: k). Proxy t
Proxy @TraceBlockchainTime) Last (OnOff TraceBlockchainTime)
pTraceBlockchainTime
  OnOff TraceBlockFetchClient
traceBlockFetchClient <- Proxy TraceBlockFetchClient
-> Last (OnOff TraceBlockFetchClient)
-> Either Text (OnOff TraceBlockFetchClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchClient
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchClient) Last (OnOff TraceBlockFetchClient)
pTraceBlockFetchClient
  OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions <- Proxy TraceBlockFetchDecisions
-> Last (OnOff TraceBlockFetchDecisions)
-> Either Text (OnOff TraceBlockFetchDecisions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchDecisions
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchDecisions) Last (OnOff TraceBlockFetchDecisions)
pTraceBlockFetchDecisions
  OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol <- Proxy TraceBlockFetchProtocol
-> Last (OnOff TraceBlockFetchProtocol)
-> Either Text (OnOff TraceBlockFetchProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchProtocol
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocol) Last (OnOff TraceBlockFetchProtocol)
pTraceBlockFetchProtocol
  OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised <- Proxy TraceBlockFetchProtocolSerialised
-> Last (OnOff TraceBlockFetchProtocolSerialised)
-> Either Text (OnOff TraceBlockFetchProtocolSerialised)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchProtocolSerialised
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchProtocolSerialised) Last (OnOff TraceBlockFetchProtocolSerialised)
pTraceBlockFetchProtocolSerialised
  OnOff TraceBlockFetchServer
traceBlockFetchServer <- Proxy TraceBlockFetchServer
-> Last (OnOff TraceBlockFetchServer)
-> Either Text (OnOff TraceBlockFetchServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceBlockFetchServer
forall k (t :: k). Proxy t
Proxy @TraceBlockFetchServer) Last (OnOff TraceBlockFetchServer)
pTraceBlockFetchServer
  OnOff TraceChainDB
traceChainDB <- Proxy TraceChainDB
-> Last (OnOff TraceChainDB) -> Either Text (OnOff TraceChainDB)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainDB
forall k (t :: k). Proxy t
Proxy @TraceChainDB) Last (OnOff TraceChainDB)
pTraceChainDB
  OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer <- Proxy TraceChainSyncBlockServer
-> Last (OnOff TraceChainSyncBlockServer)
-> Either Text (OnOff TraceChainSyncBlockServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncBlockServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncBlockServer) Last (OnOff TraceChainSyncBlockServer)
pTraceChainSyncBlockServer
  OnOff TraceChainSyncClient
traceChainSyncClient <- Proxy TraceChainSyncClient
-> Last (OnOff TraceChainSyncClient)
-> Either Text (OnOff TraceChainSyncClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncClient
forall k (t :: k). Proxy t
Proxy @TraceChainSyncClient) Last (OnOff TraceChainSyncClient)
pTraceChainSyncClient
  OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer <- Proxy TraceChainSyncHeaderServer
-> Last (OnOff TraceChainSyncHeaderServer)
-> Either Text (OnOff TraceChainSyncHeaderServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncHeaderServer
forall k (t :: k). Proxy t
Proxy @TraceChainSyncHeaderServer) Last (OnOff TraceChainSyncHeaderServer)
pTraceChainSyncHeaderServer
  OnOff TraceChainSyncProtocol
traceChainSyncProtocol <- Proxy TraceChainSyncProtocol
-> Last (OnOff TraceChainSyncProtocol)
-> Either Text (OnOff TraceChainSyncProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceChainSyncProtocol) Last (OnOff TraceChainSyncProtocol)
pTraceChainSyncProtocol
  OnOff TraceConnectionManager
traceConnectionManager <- Proxy TraceConnectionManager
-> Last (OnOff TraceConnectionManager)
-> Either Text (OnOff TraceConnectionManager)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceConnectionManager) Last (OnOff TraceConnectionManager)
pTraceConnectionManager
  OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters <- Proxy TraceConnectionManagerCounters
-> Last (OnOff TraceConnectionManagerCounters)
-> Either Text (OnOff TraceConnectionManagerCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManagerCounters
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerCounters) Last (OnOff TraceConnectionManagerCounters)
pTraceConnectionManagerCounters
  OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions <- Proxy TraceConnectionManagerTransitions
-> Last (OnOff TraceConnectionManagerTransitions)
-> Either Text (OnOff TraceConnectionManagerTransitions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceConnectionManagerTransitions
forall k (t :: k). Proxy t
Proxy @TraceConnectionManagerTransitions) Last (OnOff TraceConnectionManagerTransitions)
pTraceConnectionManagerTransitions
  OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer <- Proxy DebugPeerSelectionInitiator
-> Last (OnOff DebugPeerSelectionInitiator)
-> Either Text (OnOff DebugPeerSelectionInitiator)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy DebugPeerSelectionInitiator
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiator) Last (OnOff DebugPeerSelectionInitiator)
pTraceDebugPeerSelectionInitiatorTracer
  OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer <- Proxy DebugPeerSelectionInitiatorResponder
-> Last (OnOff DebugPeerSelectionInitiatorResponder)
-> Either Text (OnOff DebugPeerSelectionInitiatorResponder)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy DebugPeerSelectionInitiatorResponder
forall k (t :: k). Proxy t
Proxy @DebugPeerSelectionInitiatorResponder) Last (OnOff DebugPeerSelectionInitiatorResponder)
pTraceDebugPeerSelectionInitiatorResponderTracer
  OnOff TraceDiffusionInitialization
traceDiffusionInitialization <- Proxy TraceDiffusionInitialization
-> Last (OnOff TraceDiffusionInitialization)
-> Either Text (OnOff TraceDiffusionInitialization)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDiffusionInitialization
forall k (t :: k). Proxy t
Proxy @TraceDiffusionInitialization) Last (OnOff TraceDiffusionInitialization)
pTraceDiffusionInitialization
  OnOff TraceDnsResolver
traceDnsResolver <- Proxy TraceDnsResolver
-> Last (OnOff TraceDnsResolver)
-> Either Text (OnOff TraceDnsResolver)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDnsResolver
forall k (t :: k). Proxy t
Proxy @TraceDnsResolver) Last (OnOff TraceDnsResolver)
pTraceDnsResolver
  OnOff TraceDnsSubscription
traceDnsSubscription <- Proxy TraceDnsSubscription
-> Last (OnOff TraceDnsSubscription)
-> Either Text (OnOff TraceDnsSubscription)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceDnsSubscription
forall k (t :: k). Proxy t
Proxy @TraceDnsSubscription) Last (OnOff TraceDnsSubscription)
pTraceDnsSubscription
  OnOff TraceErrorPolicy
traceErrorPolicy <- Proxy TraceErrorPolicy
-> Last (OnOff TraceErrorPolicy)
-> Either Text (OnOff TraceErrorPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceErrorPolicy) Last (OnOff TraceErrorPolicy)
pTraceErrorPolicy
  OnOff TraceForge
traceForge <- Proxy TraceForge
-> Last (OnOff TraceForge) -> Either Text (OnOff TraceForge)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceForge
forall k (t :: k). Proxy t
Proxy @TraceForge) Last (OnOff TraceForge)
pTraceForge
  OnOff TraceForgeStateInfo
traceForgeStateInfo <- Proxy TraceForgeStateInfo
-> Last (OnOff TraceForgeStateInfo)
-> Either Text (OnOff TraceForgeStateInfo)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceForgeStateInfo
forall k (t :: k). Proxy t
Proxy @TraceForgeStateInfo) Last (OnOff TraceForgeStateInfo)
pTraceForgeStateInfo
  OnOff TraceHandshake
traceHandshake <- Proxy TraceHandshake
-> Last (OnOff TraceHandshake)
-> Either Text (OnOff TraceHandshake)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceHandshake
forall k (t :: k). Proxy t
Proxy @TraceHandshake) Last (OnOff TraceHandshake)
pTraceHandshake
  OnOff TraceInboundGovernor
traceInboundGovernor <- Proxy TraceInboundGovernor
-> Last (OnOff TraceInboundGovernor)
-> Either Text (OnOff TraceInboundGovernor)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernor) Last (OnOff TraceInboundGovernor)
pTraceInboundGovernor
  OnOff TraceIpSubscription
traceIpSubscription <- Proxy TraceIpSubscription
-> Last (OnOff TraceIpSubscription)
-> Either Text (OnOff TraceIpSubscription)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceIpSubscription
forall k (t :: k). Proxy t
Proxy @TraceIpSubscription) Last (OnOff TraceIpSubscription)
pTraceIpSubscription
  OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters <- Proxy TraceInboundGovernorCounters
-> Last (OnOff TraceInboundGovernorCounters)
-> Either Text (OnOff TraceInboundGovernorCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernorCounters
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorCounters) Last (OnOff TraceInboundGovernorCounters)
pTraceInboundGovernorCounters
  OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions <- Proxy TraceInboundGovernorTransitions
-> Last (OnOff TraceInboundGovernorTransitions)
-> Either Text (OnOff TraceInboundGovernorTransitions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceInboundGovernorTransitions
forall k (t :: k). Proxy t
Proxy @TraceInboundGovernorTransitions) Last (OnOff TraceInboundGovernorTransitions)
pTraceInboundGovernorTransitions
  OnOff TraceKeepAliveClient
traceKeepAliveClient <- Proxy TraceKeepAliveClient
-> Last (OnOff TraceKeepAliveClient)
-> Either Text (OnOff TraceKeepAliveClient)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceKeepAliveClient
forall k (t :: k). Proxy t
Proxy @TraceKeepAliveClient) Last (OnOff TraceKeepAliveClient)
pTraceKeepAliveClient
  OnOff TraceLedgerPeers
traceLedgerPeers <- Proxy TraceLedgerPeers
-> Last (OnOff TraceLedgerPeers)
-> Either Text (OnOff TraceLedgerPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLedgerPeers
forall k (t :: k). Proxy t
Proxy @TraceLedgerPeers) Last (OnOff TraceLedgerPeers)
pTraceLedgerPeers
  OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol <- Proxy TraceLocalChainSyncProtocol
-> Last (OnOff TraceLocalChainSyncProtocol)
-> Either Text (OnOff TraceLocalChainSyncProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalChainSyncProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalChainSyncProtocol) Last (OnOff TraceLocalChainSyncProtocol)
pTraceLocalChainSyncProtocol
  OnOff TraceLocalConnectionManager
traceLocalConnectionManager <- Proxy TraceLocalConnectionManager
-> Last (OnOff TraceLocalConnectionManager)
-> Either Text (OnOff TraceLocalConnectionManager)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalConnectionManager
forall k (t :: k). Proxy t
Proxy @TraceLocalConnectionManager) Last (OnOff TraceLocalConnectionManager)
pTraceLocalConnectionManager
  OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy <- Proxy TraceLocalErrorPolicy
-> Last (OnOff TraceLocalErrorPolicy)
-> Either Text (OnOff TraceLocalErrorPolicy)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalErrorPolicy
forall k (t :: k). Proxy t
Proxy @TraceLocalErrorPolicy) Last (OnOff TraceLocalErrorPolicy)
pTraceLocalErrorPolicy
  OnOff TraceLocalHandshake
traceLocalHandshake <- Proxy TraceLocalHandshake
-> Last (OnOff TraceLocalHandshake)
-> Either Text (OnOff TraceLocalHandshake)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalHandshake
forall k (t :: k). Proxy t
Proxy @TraceLocalHandshake) Last (OnOff TraceLocalHandshake)
pTraceLocalHandshake
  OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor <- Proxy TraceLocalInboundGovernor
-> Last (OnOff TraceLocalInboundGovernor)
-> Either Text (OnOff TraceLocalInboundGovernor)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalInboundGovernor
forall k (t :: k). Proxy t
Proxy @TraceLocalInboundGovernor) Last (OnOff TraceLocalInboundGovernor)
pTraceLocalInboundGovernor
  OnOff TraceLocalMux
traceLocalMux <- Proxy TraceLocalMux
-> Last (OnOff TraceLocalMux) -> Either Text (OnOff TraceLocalMux)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalMux
forall k (t :: k). Proxy t
Proxy @TraceLocalMux) Last (OnOff TraceLocalMux)
pTraceLocalMux
  OnOff TraceLocalRootPeers
traceLocalRootPeers <- Proxy TraceLocalRootPeers
-> Last (OnOff TraceLocalRootPeers)
-> Either Text (OnOff TraceLocalRootPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalRootPeers
forall k (t :: k). Proxy t
Proxy @TraceLocalRootPeers) Last (OnOff TraceLocalRootPeers)
pTraceLocalRootPeers
  OnOff TraceLocalServer
traceLocalServer <- Proxy TraceLocalServer
-> Last (OnOff TraceLocalServer)
-> Either Text (OnOff TraceLocalServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalServer
forall k (t :: k). Proxy t
Proxy @TraceLocalServer) Last (OnOff TraceLocalServer)
pTraceLocalServer
  OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol <- Proxy TraceLocalTxMonitorProtocol
-> Last (OnOff TraceLocalTxMonitorProtocol)
-> Either Text (OnOff TraceLocalTxMonitorProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxMonitorProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxMonitorProtocol) Last (OnOff TraceLocalTxMonitorProtocol)
pTraceLocalTxMonitorProtocol
  OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol <- Proxy TraceLocalStateQueryProtocol
-> Last (OnOff TraceLocalStateQueryProtocol)
-> Either Text (OnOff TraceLocalStateQueryProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalStateQueryProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalStateQueryProtocol) Last (OnOff TraceLocalStateQueryProtocol)
pTraceLocalStateQueryProtocol
  OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol <- Proxy TraceLocalTxSubmissionProtocol
-> Last (OnOff TraceLocalTxSubmissionProtocol)
-> Either Text (OnOff TraceLocalTxSubmissionProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionProtocol) Last (OnOff TraceLocalTxSubmissionProtocol)
pTraceLocalTxSubmissionProtocol
  OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer <- Proxy TraceLocalTxSubmissionServer
-> Last (OnOff TraceLocalTxSubmissionServer)
-> Either Text (OnOff TraceLocalTxSubmissionServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceLocalTxSubmissionServer
forall k (t :: k). Proxy t
Proxy @TraceLocalTxSubmissionServer) Last (OnOff TraceLocalTxSubmissionServer)
pTraceLocalTxSubmissionServer
  OnOff TraceMempool
traceMempool <- Proxy TraceMempool
-> Last (OnOff TraceMempool) -> Either Text (OnOff TraceMempool)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceMempool
forall k (t :: k). Proxy t
Proxy @TraceMempool) Last (OnOff TraceMempool)
pTraceMempool
  OnOff TraceMux
traceMux <- Proxy TraceMux
-> Last (OnOff TraceMux) -> Either Text (OnOff TraceMux)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceMux
forall k (t :: k). Proxy t
Proxy @TraceMux) Last (OnOff TraceMux)
pTraceMux
  OnOff TracePeerSelection
tracePeerSelection <- Proxy TracePeerSelection
-> Last (OnOff TracePeerSelection)
-> Either Text (OnOff TracePeerSelection)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelection
forall k (t :: k). Proxy t
Proxy @TracePeerSelection) Last (OnOff TracePeerSelection)
pTracePeerSelection
  OnOff TracePeerSelectionCounters
tracePeerSelectionCounters <- Proxy TracePeerSelectionCounters
-> Last (OnOff TracePeerSelectionCounters)
-> Either Text (OnOff TracePeerSelectionCounters)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelectionCounters
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionCounters) Last (OnOff TracePeerSelectionCounters)
pTracePeerSelectionCounters
  OnOff TracePeerSelectionActions
tracePeerSelectionActions <- Proxy TracePeerSelectionActions
-> Last (OnOff TracePeerSelectionActions)
-> Either Text (OnOff TracePeerSelectionActions)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePeerSelectionActions
forall k (t :: k). Proxy t
Proxy @TracePeerSelectionActions) Last (OnOff TracePeerSelectionActions)
pTracePeerSelectionActions
  OnOff TracePublicRootPeers
tracePublicRootPeers <- Proxy TracePublicRootPeers
-> Last (OnOff TracePublicRootPeers)
-> Either Text (OnOff TracePublicRootPeers)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TracePublicRootPeers
forall k (t :: k). Proxy t
Proxy @TracePublicRootPeers) Last (OnOff TracePublicRootPeers)
pTracePublicRootPeers
  OnOff TraceServer
traceServer <- Proxy TraceServer
-> Last (OnOff TraceServer) -> Either Text (OnOff TraceServer)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceServer
forall k (t :: k). Proxy t
Proxy @TraceServer) Last (OnOff TraceServer)
pTraceServer
  OnOff TraceTxInbound
traceTxInbound <- Proxy TraceTxInbound
-> Last (OnOff TraceTxInbound)
-> Either Text (OnOff TraceTxInbound)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxInbound
forall k (t :: k). Proxy t
Proxy @TraceTxInbound) Last (OnOff TraceTxInbound)
pTraceTxInbound
  OnOff TraceTxOutbound
traceTxOutbound <- Proxy TraceTxOutbound
-> Last (OnOff TraceTxOutbound)
-> Either Text (OnOff TraceTxOutbound)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxOutbound
forall k (t :: k). Proxy t
Proxy @TraceTxOutbound) Last (OnOff TraceTxOutbound)
pTraceTxOutbound
  OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol <- Proxy TraceTxSubmissionProtocol
-> Last (OnOff TraceTxSubmissionProtocol)
-> Either Text (OnOff TraceTxSubmissionProtocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxSubmissionProtocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmissionProtocol) Last (OnOff TraceTxSubmissionProtocol)
pTraceTxSubmissionProtocol
  OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol <- Proxy TraceTxSubmission2Protocol
-> Last (OnOff TraceTxSubmission2Protocol)
-> Either Text (OnOff TraceTxSubmission2Protocol)
forall (name :: Symbol).
KnownSymbol name =>
Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither (Proxy TraceTxSubmission2Protocol
forall k (t :: k). Proxy t
Proxy @TraceTxSubmission2Protocol) Last (OnOff TraceTxSubmission2Protocol)
pTraceTxSubmission2Protocol
  TraceOptions -> Either Text TraceOptions
forall a b. b -> Either a b
Right (TraceOptions -> Either Text TraceOptions)
-> TraceOptions -> Either Text TraceOptions
forall a b. (a -> b) -> a -> b
$ TraceSelection -> TraceOptions
TracingOnLegacy (TraceSelection -> TraceOptions) -> TraceSelection -> TraceOptions
forall a b. (a -> b) -> a -> b
$ TraceSelection :: TracingVerbosity
-> OnOff TraceAcceptPolicy
-> OnOff TraceBlockFetchClient
-> OnOff TraceBlockFetchDecisions
-> OnOff TraceBlockFetchProtocol
-> OnOff TraceBlockFetchProtocolSerialised
-> OnOff TraceBlockFetchServer
-> OnOff TraceBlockchainTime
-> OnOff TraceChainDB
-> OnOff TraceChainSyncBlockServer
-> OnOff TraceChainSyncClient
-> OnOff TraceChainSyncHeaderServer
-> OnOff TraceChainSyncProtocol
-> OnOff TraceConnectionManager
-> OnOff TraceConnectionManagerCounters
-> OnOff TraceConnectionManagerTransitions
-> OnOff DebugPeerSelectionInitiator
-> OnOff DebugPeerSelectionInitiatorResponder
-> OnOff TraceDiffusionInitialization
-> OnOff TraceDnsResolver
-> OnOff TraceDnsSubscription
-> OnOff TraceErrorPolicy
-> OnOff TraceForge
-> OnOff TraceForgeStateInfo
-> OnOff TraceHandshake
-> OnOff TraceInboundGovernor
-> OnOff TraceInboundGovernorCounters
-> OnOff TraceInboundGovernorTransitions
-> OnOff TraceIpSubscription
-> OnOff TraceKeepAliveClient
-> OnOff TraceLedgerPeers
-> OnOff TraceLocalChainSyncProtocol
-> OnOff TraceLocalConnectionManager
-> OnOff TraceLocalErrorPolicy
-> OnOff TraceLocalHandshake
-> OnOff TraceLocalInboundGovernor
-> OnOff TraceLocalMux
-> OnOff TraceLocalRootPeers
-> OnOff TraceLocalServer
-> OnOff TraceLocalStateQueryProtocol
-> OnOff TraceLocalTxMonitorProtocol
-> OnOff TraceLocalTxSubmissionProtocol
-> OnOff TraceLocalTxSubmissionServer
-> OnOff TraceMempool
-> OnOff TraceMux
-> OnOff TracePeerSelection
-> OnOff TracePeerSelectionCounters
-> OnOff TracePeerSelectionActions
-> OnOff TracePublicRootPeers
-> OnOff TraceServer
-> OnOff TraceTxInbound
-> OnOff TraceTxOutbound
-> OnOff TraceTxSubmissionProtocol
-> OnOff TraceTxSubmission2Protocol
-> TraceSelection
TraceSelection
            { traceVerbosity :: TracingVerbosity
traceVerbosity = TracingVerbosity
traceVerbosity
            , traceAcceptPolicy :: OnOff TraceAcceptPolicy
traceAcceptPolicy = OnOff TraceAcceptPolicy
traceAcceptPolicy
            , traceBlockFetchClient :: OnOff TraceBlockFetchClient
traceBlockFetchClient = OnOff TraceBlockFetchClient
traceBlockFetchClient
            , traceBlockFetchDecisions :: OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions = OnOff TraceBlockFetchDecisions
traceBlockFetchDecisions
            , traceBlockFetchProtocol :: OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol = OnOff TraceBlockFetchProtocol
traceBlockFetchProtocol
            , traceBlockFetchProtocolSerialised :: OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised = OnOff TraceBlockFetchProtocolSerialised
traceBlockFetchProtocolSerialised
            , traceBlockFetchServer :: OnOff TraceBlockFetchServer
traceBlockFetchServer = OnOff TraceBlockFetchServer
traceBlockFetchServer
            , traceBlockchainTime :: OnOff TraceBlockchainTime
traceBlockchainTime = OnOff TraceBlockchainTime
traceBlockchainTime
            , traceChainDB :: OnOff TraceChainDB
traceChainDB = OnOff TraceChainDB
traceChainDB
            , traceChainSyncBlockServer :: OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer = OnOff TraceChainSyncBlockServer
traceChainSyncBlockServer
            , traceChainSyncClient :: OnOff TraceChainSyncClient
traceChainSyncClient = OnOff TraceChainSyncClient
traceChainSyncClient
            , traceChainSyncHeaderServer :: OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer = OnOff TraceChainSyncHeaderServer
traceChainSyncHeaderServer
            , traceChainSyncProtocol :: OnOff TraceChainSyncProtocol
traceChainSyncProtocol = OnOff TraceChainSyncProtocol
traceChainSyncProtocol
            , traceConnectionManager :: OnOff TraceConnectionManager
traceConnectionManager = OnOff TraceConnectionManager
traceConnectionManager
            , traceConnectionManagerCounters :: OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters = OnOff TraceConnectionManagerCounters
traceConnectionManagerCounters
            , traceConnectionManagerTransitions :: OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions = OnOff TraceConnectionManagerTransitions
traceConnectionManagerTransitions
            , traceDebugPeerSelectionInitiatorTracer :: OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer = OnOff DebugPeerSelectionInitiator
traceDebugPeerSelectionInitiatorTracer
            , traceDebugPeerSelectionInitiatorResponderTracer :: OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer = OnOff DebugPeerSelectionInitiatorResponder
traceDebugPeerSelectionInitiatorResponderTracer
            , traceDiffusionInitialization :: OnOff TraceDiffusionInitialization
traceDiffusionInitialization = OnOff TraceDiffusionInitialization
traceDiffusionInitialization
            , traceDnsResolver :: OnOff TraceDnsResolver
traceDnsResolver = OnOff TraceDnsResolver
traceDnsResolver
            , traceDnsSubscription :: OnOff TraceDnsSubscription
traceDnsSubscription = OnOff TraceDnsSubscription
traceDnsSubscription
            , traceErrorPolicy :: OnOff TraceErrorPolicy
traceErrorPolicy = OnOff TraceErrorPolicy
traceErrorPolicy
            , traceForge :: OnOff TraceForge
traceForge = OnOff TraceForge
traceForge
            , traceForgeStateInfo :: OnOff TraceForgeStateInfo
traceForgeStateInfo = OnOff TraceForgeStateInfo
traceForgeStateInfo
            , traceHandshake :: OnOff TraceHandshake
traceHandshake = OnOff TraceHandshake
traceHandshake
            , traceInboundGovernor :: OnOff TraceInboundGovernor
traceInboundGovernor = OnOff TraceInboundGovernor
traceInboundGovernor
            , traceInboundGovernorCounters :: OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters = OnOff TraceInboundGovernorCounters
traceInboundGovernorCounters
            , traceInboundGovernorTransitions :: OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions = OnOff TraceInboundGovernorTransitions
traceInboundGovernorTransitions
            , traceIpSubscription :: OnOff TraceIpSubscription
traceIpSubscription = OnOff TraceIpSubscription
traceIpSubscription
            , traceKeepAliveClient :: OnOff TraceKeepAliveClient
traceKeepAliveClient = OnOff TraceKeepAliveClient
traceKeepAliveClient
            , traceLedgerPeers :: OnOff TraceLedgerPeers
traceLedgerPeers = OnOff TraceLedgerPeers
traceLedgerPeers
            , traceLocalChainSyncProtocol :: OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol = OnOff TraceLocalChainSyncProtocol
traceLocalChainSyncProtocol
            , traceLocalConnectionManager :: OnOff TraceLocalConnectionManager
traceLocalConnectionManager = OnOff TraceLocalConnectionManager
traceLocalConnectionManager
            , traceLocalErrorPolicy :: OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy = OnOff TraceLocalErrorPolicy
traceLocalErrorPolicy
            , traceLocalHandshake :: OnOff TraceLocalHandshake
traceLocalHandshake = OnOff TraceLocalHandshake
traceLocalHandshake
            , traceLocalInboundGovernor :: OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor = OnOff TraceLocalInboundGovernor
traceLocalInboundGovernor
            , traceLocalMux :: OnOff TraceLocalMux
traceLocalMux = OnOff TraceLocalMux
traceLocalMux
            , traceLocalRootPeers :: OnOff TraceLocalRootPeers
traceLocalRootPeers = OnOff TraceLocalRootPeers
traceLocalRootPeers
            , traceLocalServer :: OnOff TraceLocalServer
traceLocalServer = OnOff TraceLocalServer
traceLocalServer
            , traceLocalStateQueryProtocol :: OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol = OnOff TraceLocalStateQueryProtocol
traceLocalStateQueryProtocol
            , traceLocalTxMonitorProtocol :: OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol = OnOff TraceLocalTxMonitorProtocol
traceLocalTxMonitorProtocol
            , traceLocalTxSubmissionProtocol :: OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol = OnOff TraceLocalTxSubmissionProtocol
traceLocalTxSubmissionProtocol
            , traceLocalTxSubmissionServer :: OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer = OnOff TraceLocalTxSubmissionServer
traceLocalTxSubmissionServer
            , traceMempool :: OnOff TraceMempool
traceMempool = OnOff TraceMempool
traceMempool
            , traceMux :: OnOff TraceMux
traceMux = OnOff TraceMux
traceMux
            , tracePeerSelection :: OnOff TracePeerSelection
tracePeerSelection = OnOff TracePeerSelection
tracePeerSelection
            , tracePeerSelectionCounters :: OnOff TracePeerSelectionCounters
tracePeerSelectionCounters = OnOff TracePeerSelectionCounters
tracePeerSelectionCounters
            , tracePeerSelectionActions :: OnOff TracePeerSelectionActions
tracePeerSelectionActions = OnOff TracePeerSelectionActions
tracePeerSelectionActions
            , tracePublicRootPeers :: OnOff TracePublicRootPeers
tracePublicRootPeers = OnOff TracePublicRootPeers
tracePublicRootPeers
            , traceServer :: OnOff TraceServer
traceServer = OnOff TraceServer
traceServer
            , traceTxInbound :: OnOff TraceTxInbound
traceTxInbound = OnOff TraceTxInbound
traceTxInbound
            , traceTxOutbound :: OnOff TraceTxOutbound
traceTxOutbound = OnOff TraceTxOutbound
traceTxOutbound
            , traceTxSubmissionProtocol :: OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol = OnOff TraceTxSubmissionProtocol
traceTxSubmissionProtocol
            , traceTxSubmission2Protocol :: OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol = OnOff TraceTxSubmission2Protocol
traceTxSubmission2Protocol
            }

proxyLastToEither :: KnownSymbol name => Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither :: Proxy name -> Last (OnOff name) -> Either Text (OnOff name)
proxyLastToEither Proxy name
name (Last Maybe (OnOff name)
x) =
  Either Text (OnOff name)
-> (OnOff name -> Either Text (OnOff name))
-> Maybe (OnOff name)
-> Either Text (OnOff name)
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (Text -> Either Text (OnOff name)
forall a b. a -> Either a b
Left (Text -> Either Text (OnOff name))
-> Text -> Either Text (OnOff name)
forall a b. (a -> b) -> a -> b
$ Text
"Default value not specified for " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Proxy name -> Text
forall (name :: Symbol). KnownSymbol name => Proxy name -> Text
proxyName Proxy name
name) OnOff name -> Either Text (OnOff name)
forall a b. b -> Either a b
Right Maybe (OnOff name)
x

parseTracer :: KnownSymbol name => Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer :: Proxy name -> Object -> Parser (Last (OnOff name))
parseTracer Proxy name
p Object
obj = Maybe (OnOff name) -> Last (OnOff name)
forall a. Maybe a -> Last a
Last (Maybe (OnOff name) -> Last (OnOff name))
-> Parser (Maybe (OnOff name)) -> Parser (Last (OnOff name))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
obj Object -> Key -> Parser (Maybe (OnOff name))
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Text -> Key
Aeson.fromText (Proxy name -> Text
forall (name :: Symbol). KnownSymbol name => Proxy name -> Text
proxyName Proxy name
p)

lastToEither :: String -> Last a -> Either String a
lastToEither :: String -> Last a -> Either String a
lastToEither String
errMsg (Last Maybe a
x) = Either String a
-> (a -> Either String a) -> Maybe a -> Either String a
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> Either String a
forall a b. a -> Either a b
Left String
errMsg) a -> Either String a
forall a b. b -> Either a b
Right Maybe a
x