Fix parsing Constr PlutusData

This commit is contained in:
Niels Mündler 2023-12-31 11:28:41 +01:00 committed by Kasey
parent 4a8fecb70a
commit 0ae631a1fe
1 changed files with 4 additions and 5 deletions

View File

@ -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))