some type conversion fixes

2023-07-28 15:35:36 -04:00
parent 02948616cd
commit 0b8266dfd1
2 changed files with 46 additions and 42 deletions
--- a/crates/aiken-lang/src/gen_uplc/builder.rs
+++ b/crates/aiken-lang/src/gen_uplc/builder.rs
@@ -546,7 +546,12 @@ pub fn erase_opaque_type_operations(
        match e {
            AirExpression::Constr { tipo, args, .. } => {
                if check_replaceable_opaque_type(tipo, data_types) {
-                    *air_tree = args.pop().unwrap();
+                    let arg = args.pop().unwrap();
+                    if let AirTree::Expression(AirExpression::CastToData { value, .. }) = arg {
+                        *air_tree = *value;
+                    } else {
+                        *air_tree = arg;
+                    }
                }
            }
            AirExpression::RecordAccess { record, .. } => {