From f51ecdcb4192f3246e0f671a479ca7ae36733d7a Mon Sep 17 00:00:00 2001
From: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>
Date: Thu, 9 Jan 2025 21:04:32 -0700
Subject: [PATCH] Add sharing for GovActionState

---
 .../src/Cardano/Ledger/Conway/Governance/Procedures.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 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
index 0ae5b1a3968..ce61c0763d9 100644
--- a/eras/conway/impl/src/Cardano/Ledger/Conway/Governance/Procedures.hs
+++ b/eras/conway/impl/src/Cardano/Ledger/Conway/Governance/Procedures.hs
@@ -98,6 +98,7 @@ import Cardano.Ledger.Binary (
   ToCBOR (toCBOR),
   decNoShareCBOR,
   decodeEnumBounded,
+  decodeMap,
   decodeMapByKey,
   decodeNullStrictMaybe,
   decodeRecordNamed,
@@ -105,6 +106,7 @@ import Cardano.Ledger.Binary (
   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