[wip] update Ledger traces

Author: geo2a

cardano-node/src/Cardano/Node/Tracing/Era/Shelley.hs

@@ -347,6 +347,8 @@ instance
   forMachine dtal = \case
     UtxowFailure f -> forMachine dtal f
     DelegsFailure f -> forMachine dtal f
+    (ShelleyWithdrawalsMissingAccounts _withdrawals) -> undefined -- TODO(geo2a)
+    (ShelleyIncompleteWithdrawals _payload) -> undefined -- TODO(geo2a)
 
 instance
   ( Api.ShelleyLedgerEra era ~ ledgerera
@@ -610,10 +612,6 @@ instance
     mconcat [ "kind" .= String "DelegateeNotRegisteredDELEG"
              , "targetPool" .= targetPool
              ]
-  forMachine _dtal (WithdrawalsNotInRewardsDELEGS incorrectWithdrawals) =
-    mconcat [ "kind" .= String "WithdrawalsNotInRewardsCERTS"
-             , "incorrectWithdrawals" .= unWithdrawals incorrectWithdrawals
-             ]
   forMachine dtal (DelplFailure f) = forMachine dtal f
 
 
@@ -1077,9 +1075,9 @@ instance
     mconcat [ "kind" .= String "ConwayWithdrawalsMissingAccounts"
             , "withdrawals" .= unWithdrawals missingWithdrawals
             ]
-  forMachine _ (Conway.ConwayIncompleteWithdrawals incompleteWithdrawals) =
+  forMachine _ (Conway.ConwayIncompleteWithdrawals _incompleteWithdrawals) =
     mconcat [ "kind" .= String "ConwayIncompleteWithdrawals"
-            , "withdrawals" .= unWithdrawals incompleteWithdrawals
+            -- , "withdrawals" .= unWithdrawals incompleteWithdrawals -- TODO(geo2a)
             ]
   forMachine _ (Conway.ConwayTxRefScriptsSizeTooBig  Mismatch {mismatchSupplied, mismatchExpected}) =
     mconcat [ "kind" .= String "ConwayTxRefScriptsSizeTooBig"

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

@@ -327,6 +327,9 @@ instance
   ) => ToObject (ShelleyLedgerPredFailure ledgerera) where
   toObject verb (UtxowFailure f) = toObject verb f
   toObject verb (DelegsFailure f) = toObject verb f
+  toObject _verb (ShelleyWithdrawalsMissingAccounts _withdrawals) = undefined -- TODO(geo2a)
+  toObject _verb (ShelleyIncompleteWithdrawals _payload) = undefined -- TODO(geo2a)
+
 
 instance
   ( ToObject (PredicateFailure (Core.EraRule "CERTS" ledgerera))
@@ -338,9 +341,9 @@ instance
     mconcat [ "kind" .= String "ConwayWithdrawalsMissingAccounts"
             , "withdrawals" .= unWithdrawals missingWithdrawals
             ]
-  toObject _ (Conway.ConwayIncompleteWithdrawals incompleteWithdrawals) =
+  toObject _ (Conway.ConwayIncompleteWithdrawals _incompleteWithdrawals) =
     mconcat [ "kind" .= String "ConwayIncompleteWithdrawals"
-            , "withdrawals" .= unWithdrawals incompleteWithdrawals
+            -- , "withdrawals" .= undefined -- TODO(geo2a)
             ]
   toObject _    (Conway.ConwayTxRefScriptsSizeTooBig Mismatch {mismatchSupplied, mismatchExpected}) =
     mconcat [ "kind" .= String "ConwayTxRefScriptsSizeTooBig"
@@ -718,10 +721,6 @@ instance
     mconcat [ "kind" .= String "DelegateeNotRegisteredDELEG"
              , "targetPool" .= targetPool
              ]
-  toObject _verb (WithdrawalsNotInRewardsDELEGS incorrectWithdrawals) =
-    mconcat [ "kind" .= String "WithdrawalsNotInRewardsCERTS"
-             , "incorrectWithdrawals" .= unWithdrawals incorrectWithdrawals
-             ]
   toObject verb (DelplFailure f) = toObject verb f