From 0ae631a1fe89ff5f28cb9b761d5b4abcd010e091 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=BCndler?= <n.muendler@posteo.de>
Date: Sun, 31 Dec 2023 11:28:41 +0100
Subject: [PATCH] Fix parsing Constr PlutusData

---
 crates/uplc/src/parser.rs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/crates/uplc/src/parser.rs b/crates/uplc/src/parser.rs
index 2effdcf7..87c97087 100644
--- a/crates/uplc/src/parser.rs
+++ b/crates/uplc/src/parser.rs
@@ -242,11 +242,10 @@ peg::parser! {
 
         rule data() -> PlutusData
           = _* "Constr" _+ t:decimal() _+ fs:plutus_list() {?
-            Ok(PlutusData::Constr(pallas_primitives::babbage::Constr {
-                tag: u64::try_from(t).or(Err("tag"))?,
-                any_constructor: None,
-                fields: fs
-            }))
+            Ok(crate::ast::Data::constr(
+                u64::try_from(t).or(Err("tag"))?,
+                fs,
+            ))
           }
           / _* "Map" _+ kvps:plutus_key_value_pairs() {
             PlutusData::Map(pallas_codec::utils::KeyValuePairs::Def(kvps))