Added trace tags used in validation of big ledger peer snapshot

Author: crocodile-dentist

cardano-node/src/Cardano/Node/Tracing/Tracers/P2P.hs

@@ -554,6 +554,9 @@ instance LogFormatting (TracePeerSelection SockAddr) where
             , "upstreamyness" .= dpssUpstreamyness ds
             , "fetchynessBlocks" .= dpssFetchynessBlocks ds
             ]
+  forMachine _dtal (TraceVerifyPeerSnapshot result) =
+    mconcat [ "kind" .= String "VerifyPeerSnapshot"
+            , "result" .= result]
 
   forHuman = pack . show
 
@@ -678,6 +681,8 @@ instance MetaTrace (TracePeerSelection SockAddr) where
       Namespace [] ["ChurnTimeout"]
     namespaceFor TraceDebugState {} =
       Namespace [] ["DebugState"]
+    namespaceFor TraceVerifyPeerSnapshot {} =
+      Namespace [] ["VerifyPeerSnapshot"]
 
     severityFor (Namespace [] ["LocalRootPeersChanged"]) _ = Just Notice
     severityFor (Namespace [] ["TargetsChanged"]) _ = Just Notice
@@ -713,6 +718,7 @@ instance MetaTrace (TracePeerSelection SockAddr) where
     severityFor (Namespace [] ["ChurnAction"]) _ = Just Info
     severityFor (Namespace [] ["ChurnTimeout"]) _ = Just Notice
     severityFor (Namespace [] ["DebugState"]) _ = Just Info
+    severityFor (Namespace [] ["VerifyPeerSnapshot"]) _ = Just Error
     severityFor _ _ = Nothing
 
     documentFor (Namespace [] ["LocalRootPeersChanged"]) = Just  ""
@@ -771,6 +777,8 @@ instance MetaTrace (TracePeerSelection SockAddr) where
       "Outbound Governor was killed unexpectedly"
     documentFor (Namespace [] ["DebugState"]) = Just
       "peer selection internal state"
+    documentFor (Namespace [] ["VerifyPeerSnapshot"]) = Just
+      "Big ledger peer snapshot file failed integrity check against the ledger"
     documentFor _ = Nothing
 
     metricsDocFor (Namespace [] ["ChurnAction"]) =
@@ -816,6 +824,7 @@ instance MetaTrace (TracePeerSelection SockAddr) where
       , Namespace [] ["PickInboundPeers"]
       , Namespace [] ["OutboundGovernorCriticalFailure"]
       , Namespace [] ["DebugState"]
+      , Namespace [] ["VerifyPeerSnapshot"]
       ]
 
 --------------------------------------------------------------------------------

cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs

@@ -485,6 +485,9 @@ instance HasSeverityAnnotation (TracePeerSelection addr) where
 
       TraceDebugState {} -> Info
 
+      TraceVerifyPeerSnapshot True  -> Info
+      TraceVerifyPeerSnapshot False -> Error
+
 instance HasPrivacyAnnotation (DebugPeerSelection addr)
 instance HasSeverityAnnotation (DebugPeerSelection addr) where
   getSeverityAnnotation _ = Debug
@@ -1963,6 +1966,9 @@ instance ToObject (TracePeerSelection SockAddr) where
             , "ledgerStateJudgement" .= dpssLedgerStateJudgement ds
             , "associationMode" .= dpssAssociationMode ds
             ]
+  toObject _verb (TraceVerifyPeerSnapshot result) =
+    mconcat [ "kind" .= String "VerifyPeerSnapshot"
+            , "result" .= result ]
 
 -- Connection manager abstract state.  For explanation of each state see
 -- <https://hydra.iohk.io/job/Cardano/ouroboros-network/native.network-docs.x86_64-linux/latest/download/2>