From cda1716d47c155fbadcc5e119b40135cda8ab50d 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:48:47 +0100
Subject: [PATCH] Unify construction of PlutusData objects from int + fields

---
 crates/uplc/src/machine/runtime.rs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/crates/uplc/src/machine/runtime.rs b/crates/uplc/src/machine/runtime.rs
index ad1ee382..36c34097 100644
--- a/crates/uplc/src/machine/runtime.rs
+++ b/crates/uplc/src/machine/runtime.rs
@@ -3,10 +3,10 @@ use std::{mem::size_of, ops::Deref, rc::Rc};
 use num_bigint::BigInt;
 use num_integer::Integer;
 use once_cell::sync::Lazy;
-use pallas_primitives::babbage::{Constr, Language, PlutusData};
+use pallas_primitives::babbage::{Language, PlutusData};
 
 use crate::{
-    ast::{Constant, Type},
+    ast::{Constant, Data, Type},
     builtins::DefaultFunction,
     plutus_data_to_bytes,
 };
@@ -752,11 +752,7 @@ impl DefaultFunction {
 
                 let i: u64 = i.try_into().unwrap();
 
-                let constr_data = PlutusData::Constr(Constr {
-                    tag: convert_constr_to_tag(i).unwrap_or(ANY_TAG),
-                    any_constructor: convert_constr_to_tag(i).map_or(Some(i), |_| None),
-                    fields: data_list,
-                });
+                let constr_data = Data::constr(i, data_list);
 
                 let value = Value::data(constr_data);