Add CBOR instances for DefaultVote

IntersectMBO · Jan 29, 2025 · 5093b24 · 5093b24
1 parent 4b2721c
commit 5093b24
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/eras/conway/impl/CHANGELOG.md b/eras/conway/impl/CHANGELOG.md
@@ -2,6 +2,7 @@
 
 ## 1.19.0.0
 
+* Added `ToCBOR` and `FromCBOR` instances for `DefaultVote`.
 * Made the fields of predicate failures and environments lazy
 * Add `MemPack` instance for `PlutusScript ConwayEra`
 * Deprecate `Conway` type synonym

diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Governance.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Governance.hs
@@ -202,6 +202,10 @@ import Cardano.Ledger.Binary.Coders (
   (!>),
   (<!),
  )
+import Cardano.Ledger.Binary.Plain (
+  decodeWord8,
+  encodeWord8,
+ )
 import Cardano.Ledger.CertState (
   CommitteeAuthorization (..),
   Obligations (..),
@@ -541,6 +545,20 @@ data DefaultVote
     DefaultNoConfidence
   deriving (Eq, Show)
 
+instance FromCBOR DefaultVote where
+  fromCBOR = do
+    tag <- decodeWord8
+    pure $ case tag of
+      0 -> DefaultNo
+      1 -> DefaultAbstain
+      2 -> DefaultNoConfidence
+      _ -> error $ "Invalid DefaultVote tag " ++ show tag
+
+instance ToCBOR DefaultVote where
+  toCBOR DefaultNo = encodeWord8 0
+  toCBOR DefaultAbstain = encodeWord8 1
+  toCBOR DefaultNoConfidence = encodeWord8 2
+
 defaultStakePoolVote ::
   -- | Specify the key hash of the pool whose default vote should be returned.
   KeyHash 'StakePool ->