@@ -12,6 +12,7 @@ module Cardano.Node.Tracing.Consistency
12
12
, checkNodeTraceConfiguration'
13
13
) where
14
14
15
+
15
16
import Cardano.Logging
16
17
import Cardano.Logging.Resources
17
18
import Cardano.Logging.Resources.Types ()
@@ -23,29 +24,33 @@ import Cardano.Node.Tracing.Formatting ()
23
24
import qualified Cardano.Node.Tracing.StateRep as SR
24
25
import Cardano.Node.Tracing.Tracers.BlockReplayProgress
25
26
import Cardano.Node.Tracing.Tracers.Consensus
27
+ import Cardano.Node.Tracing.Tracers.ConsensusStartupException
26
28
import Cardano.Node.Tracing.Tracers.Diffusion ()
27
29
import Cardano.Node.Tracing.Tracers.KESInfo ()
28
30
import Cardano.Node.Tracing.Tracers.NodeToClient ()
29
31
import Cardano.Node.Tracing.Tracers.NodeToNode ()
30
32
import Cardano.Node.Tracing.Tracers.NodeVersion (NodeVersionTrace )
31
-
32
33
import Cardano.Node.Tracing.Tracers.NonP2P ()
33
34
import Cardano.Node.Tracing.Tracers.P2P ()
34
35
import Cardano.Node.Tracing.Tracers.Peer
35
36
import Cardano.Node.Tracing.Tracers.Shutdown ()
36
37
import Cardano.Node.Tracing.Tracers.Startup ()
38
+ import Ouroboros.Consensus.Block.SupportsSanityCheck (SanityCheckIssue )
37
39
import Ouroboros.Consensus.BlockchainTime.WallClock.Types (RelativeTime )
38
40
import Ouroboros.Consensus.BlockchainTime.WallClock.Util (TraceBlockchainTimeEvent (.. ))
39
41
import Ouroboros.Consensus.Cardano.Block
42
+ import Ouroboros.Consensus.Genesis.Governor (TraceGDDEvent (.. ))
40
43
import Ouroboros.Consensus.Ledger.Query (Query )
41
44
import Ouroboros.Consensus.Ledger.SupportsMempool (ApplyTxErr , GenTxId )
42
45
import Ouroboros.Consensus.Mempool (TraceEventMempool (.. ))
43
46
import Ouroboros.Consensus.MiniProtocol.BlockFetch.Server
44
47
(TraceBlockFetchServerEvent (.. ))
45
48
import Ouroboros.Consensus.MiniProtocol.ChainSync.Client (TraceChainSyncClientEvent )
49
+ import Ouroboros.Consensus.MiniProtocol.ChainSync.Client.Jumping as Jumping
46
50
import Ouroboros.Consensus.MiniProtocol.ChainSync.Server (TraceChainSyncServerEvent )
47
51
import Ouroboros.Consensus.MiniProtocol.LocalTxSubmission.Server
48
52
(TraceLocalTxSubmissionServerEvent (.. ))
53
+ import Ouroboros.Consensus.Node.GSM (TraceGsmEvent )
49
54
import qualified Ouroboros.Consensus.Protocol.Ledger.HotKey as HotKey
50
55
import qualified Ouroboros.Consensus.Storage.ChainDB as ChainDB
51
56
import Ouroboros.Network.Block (Point (.. ), SlotNo , Tip )
@@ -139,12 +144,12 @@ getAllNamespaces =
139
144
replayBlockNS = map (nsGetTuple . nsReplacePrefix [" ChainDB" , " ReplayBlock" ])
140
145
(allNamespaces :: [Namespace ReplayBlockStats ])
141
146
-- Consensus tracers
147
+
142
148
chainSyncClientNS = map
143
149
(nsGetTuple . nsReplacePrefix [" ChainSync" , " Client" ])
144
150
(allNamespaces :: [Namespace (BlockFetch. TraceLabelPeer
145
151
(ConnectionId RemoteAddress )
146
152
(TraceChainSyncClientEvent blk))])
147
-
148
153
chainSyncServerHeaderNS = map (nsGetTuple . nsReplacePrefix [" ChainSync" , " ServerHeader" ])
149
154
(allNamespaces :: [Namespace (TraceChainSyncServerEvent blk )])
150
155
chainSyncServerBlockNS = map (nsGetTuple . nsReplacePrefix [" ChainSync" , " ServerBlock" ])
@@ -157,7 +162,6 @@ getAllNamespaces =
157
162
(allNamespaces :: [Namespace (BlockFetch. TraceLabelPeer
158
163
remotePeer
159
164
(BlockFetch. TraceFetchClientState (Header blk)))])
160
-
161
165
blockFetchServerNS = map (nsGetTuple . nsReplacePrefix [" BlockFetch" , " Server" ])
162
166
(allNamespaces :: [Namespace (TraceBlockFetchServerEvent blk )])
163
167
@@ -172,6 +176,8 @@ getAllNamespaces =
172
176
(allNamespaces :: [Namespace (BlockFetch. TraceLabelPeer
173
177
remotePeer
174
178
(TraceTxSubmissionOutbound (GenTxId blk) (GenTx blk)))])
179
+ consensusSanityCheckNS = map (nsGetTuple . nsReplacePrefix [" Consensus" , " SanityCheck" ])
180
+ (allNamespaces :: [Namespace SanityCheckIssue ])
175
181
localTxSubmissionServerNS = map (nsGetTuple . nsReplacePrefix
176
182
[" TxSubmission" , " LocalServer" ])
177
183
(allNamespaces :: [Namespace
@@ -183,6 +189,14 @@ getAllNamespaces =
183
189
184
190
blockchainTimeNS = map (nsGetTuple . nsReplacePrefix [" BlockchainTime" ])
185
191
(allNamespaces :: [Namespace (TraceBlockchainTimeEvent RelativeTime )])
192
+ gddNS = map (nsGetTuple . nsReplacePrefix [" Consensus" , " GDD" ])
193
+ (allNamespaces :: [Namespace (TraceGDDEvent peer blk )])
194
+ consensusStartupErrorNS = map (nsGetTuple . nsReplacePrefix [" Consensus" , " Startup" ])
195
+ (allNamespaces :: [Namespace ConsensusStartupException ])
196
+ gsmNS = map (nsGetTuple . nsReplacePrefix [" Consensus" , " GSM" ])
197
+ (allNamespaces :: [Namespace (TraceGsmEvent (Tip blk ))])
198
+ csjNS = map (nsGetTuple . nsReplacePrefix [" Consensus" , " CSJ" ])
199
+ (allNamespaces :: [Namespace (Jumping. TraceEvent peer )])
186
200
187
201
-- Node to client
188
202
keepAliveClientNS = map (nsGetTuple . nsReplacePrefix [" Net" ])
@@ -380,6 +394,7 @@ getAllNamespaces =
380
394
<> chainSyncServerHeaderNS
381
395
<> chainSyncServerBlockNS
382
396
<> blockFetchDecisionNS
397
+ <> consensusSanityCheckNS
383
398
<> blockFetchClientNS
384
399
<> blockFetchServerNS
385
400
<> forgeKESInfoNS
@@ -389,6 +404,10 @@ getAllNamespaces =
389
404
<> mempoolNS
390
405
<> forgeNS
391
406
<> blockchainTimeNS
407
+ <> gddNS
408
+ <> consensusStartupErrorNS
409
+ <> gsmNS
410
+ <> csjNS
392
411
-- NodeToClient
393
412
<> keepAliveClientNS
394
413
<> chainSyncNS
0 commit comments