waalge
/
aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
crates/uplc/src/parser.rs
View File

@ -242,11 +242,10 @@ peg::parser! {
rule data() -> PlutusData rule data() -> PlutusData
= _* "Constr" _+ t:decimal() _+ fs:plutus_list() {? = _* "Constr" _+ t:decimal() _+ fs:plutus_list() {?
Ok(PlutusData::Constr(pallas_primitives::babbage::Constr { Ok(crate::ast::Data::constr(
tag: u64::try_from(t).or(Err("tag"))?, u64::try_from(t).or(Err("tag"))?,
any_constructor: None, fs,
fields: fs ))
}))
} }
/ _* "Map" _+ kvps:plutus_key_value_pairs() { / _* "Map" _+ kvps:plutus_key_value_pairs() {
PlutusData::Map(pallas_codec::utils::KeyValuePairs::Def(kvps)) PlutusData::Map(pallas_codec::utils::KeyValuePairs::Def(kvps))