Intern stake credentials in StakePoolState CBOR decoder

Author: teodanciu

libs/cardano-ledger-core/src/Cardano/Ledger/State/StakePool.hs

@@ -75,8 +75,10 @@ import Cardano.Ledger.Binary (
   DecShareCBOR (..),
   EncCBOR (..),
   EncCBORGroup (..),
+  Interns,
   decodeNullMaybe,
   decodeRecordNamed,
+  decodeRecordNamedT,
   decodeRecordSum,
   encodeListLen,
   encodeNullMaybe,
@@ -95,6 +97,7 @@ import Cardano.Ledger.Keys (KeyHash (..), KeyRole (..), KeyRoleVRF (StakePoolVRF
 import Cardano.Ledger.Orphans ()
 import Control.DeepSeq (NFData)
 import Control.Monad (unless)
+import Control.Monad.Trans (lift)
 import Data.Aeson (FromJSON (..), ToJSON (..), Value, (.!=), (.:), (.:?), (.=))
 import qualified Data.Aeson as Aeson
 import Data.Aeson.Types (Parser, explicitParseField)
@@ -200,7 +203,20 @@ instance DecCBOR StakePoolState where
         <! From
 
 instance DecShareCBOR StakePoolState where
-  decShareCBOR _ = decCBOR
+  type Share StakePoolState = Interns (Credential 'Staking)
+  decSharePlusCBOR =
+    decodeRecordNamedT "StakePoolState" (const 10) $
+      StakePoolState
+        <$> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> lift decCBOR
+        <*> decSharePlusCBOR
 
 instance Default StakePoolState where
   def =