Add sharing for GovActionState

IntersectMBO · Jan 30, 2025 · f51ecdc · f51ecdc
1 parent 3a552c1
commit f51ecdc
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Governance/Procedures.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Governance/Procedures.hs
@@ -98,13 +98,15 @@ import Cardano.Ledger.Binary (
   ToCBOR (toCBOR),
   decNoShareCBOR,
   decodeEnumBounded,
+  decodeMap,
   decodeMapByKey,
   decodeNullStrictMaybe,
   decodeRecordNamed,
   encodeEnum,
   encodeListLen,
   encodeNullStrictMaybe,
   encodeWord8,
+  interns,
   invalidKey,
  )
 import Cardano.Ledger.Binary.Coders (
@@ -291,13 +293,13 @@ instance EraPParams era => DecShareCBOR (GovActionState era) where
       , Interns (Credential 'DRepRole)
       , Interns (Credential 'HotCommitteeRole)
       )
-  decShareCBOR _ =
+  decShareCBOR (cs, ks, cd, ch) =
     decode $
       RecD GovActionState
         <! From
-        <! From
-        <! From
-        <! From
+        <! D (decodeMap (interns ch <$> decCBOR) decCBOR)
+        <! D (decodeMap (interns cd <$> decCBOR) decCBOR)
+        <! D (decodeMap (interns ks <$> decCBOR) decCBOR)
         <! From
         <! From
         <! From