diff --git a/libs/cardano-ledger-core/src/Cardano/Ledger/CertState.hs b/libs/cardano-ledger-core/src/Cardano/Ledger/CertState.hs index c445d4223bc..e0dcca64b93 100644 --- a/libs/cardano-ledger-core/src/Cardano/Ledger/CertState.hs +++ b/libs/cardano-ledger-core/src/Cardano/Ledger/CertState.hs @@ -312,16 +312,18 @@ instance Crypto c => DecShareCBOR (InstantaneousRewards c) where pure $ InstantaneousRewards irR irT dR dT instance Era era => EncCBOR (CertState era) where - encCBOR CertState {certPState, certDState, certVState} = - encodeListLen 3 - <> encCBOR certVState + encCBOR CertState {certPState, certDState} = + encodeListLen 2 + -- <> encCBOR certVState <> encCBOR certPState <> encCBOR certDState instance Era era => DecShareCBOR (CertState era) where type Share (CertState era) = (Interns (Credential 'Staking (EraCrypto era)), Interns (KeyHash 'StakePool (EraCrypto era))) - decSharePlusCBOR = decodeRecordNamedT "CertState" (const 3) $ do - certVState <- lift decCBOR -- TODO: add sharing of DRep credentials + decSharePlusCBOR = decodeRecordNamedT "CertState" (const 2) $ do + -- TODO: add deserialization with sharing of DRep credentials + -- certVState <- lift decCBOR + let certVState = def certPState <- decSharePlusLensCBOR _2 certDState <- decSharePlusCBOR pure CertState {certPState, certDState, certVState}