Fixed infinite loop in Data deserialization

IntersectMBO · Aug 9, 2022 · 7678d85 · 7678d85
1 parent 216047c
commit 7678d85
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs b/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs
@@ -107,12 +107,10 @@ deriving instance NoThunks Plutus.Data
 -- | This is a wrapper with a phantom era for Plutus.Data, since we need
 -- something with kind (* -> *) for MemoBytes
 newtype PlutusData era = PlutusData Plutus.Data
-  deriving newtype (Eq, Generic, Show, ToCBOR, NFData, NoThunks)
+  deriving newtype (Eq, Generic, Show, ToCBOR, NFData, NoThunks, Cborg.Serialise)
 
-deriving via
-  (Annotator (PlutusData era))
-  instance
-    Typeable era => FromCBOR (Annotator (PlutusData era))
+instance Typeable era => FromCBOR (Annotator (PlutusData era)) where
+  fromCBOR = pure <$> Cborg.decode
 
 newtype Data era = DataConstr (MemoBytes PlutusData era)
   deriving (Eq, Generic, Show)