Include deserialisation of stake keys in deserialiseAnyVerificationKe…

…yTextEnvelope
IntersectMBO · Feb 20, 2025 · bcef194 · bcef194
1 parent 5858356
commit bcef194
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/cardano-api/src/Cardano/Api/Internal/DeserialiseAnyOf.hs b/cardano-api/src/Cardano/Api/Internal/DeserialiseAnyOf.hs
@@ -348,6 +348,7 @@ deserialiseAnyVerificationKeyTextEnvelope bs =
   deserialiseFromTextEnvelopeAnyOf allTextEnvelopeCBOR
     =<< first TextEnvelopeAesonDecodeError (Aeson.eitherDecodeStrict' bs)
  where
+  -- TODO: Add AsStakeKey!
   allTextEnvelopeCBOR
     :: [FromSomeType HasTextEnvelope SomeAddressVerificationKey]
   allTextEnvelopeCBOR =
@@ -360,6 +361,7 @@ deserialiseAnyVerificationKeyTextEnvelope bs =
     , FromSomeType (AsVerificationKey AsCommitteeHotExtendedKey) ACommitteeHotExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentKey) APaymentVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentExtendedKey) APaymentExtendedVerificationKey
+    , FromSomeType (AsVerificationKey AsStakeKey) AStakeVerificationKey
     , FromSomeType (AsVerificationKey AsStakeExtendedKey) AStakeExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsGenesisUTxOKey) AGenesisUTxOVerificationKey
     , FromSomeType (AsVerificationKey AsGenesisExtendedKey) AGenesisExtendedVerificationKey