feat: add tuples and streamline conversion of types to and from data

This commit is contained in:
Kasey White
2022-12-07 04:35:41 -05:00
committed by Lucas
parent d8ff574045
commit 2f7131e9b8
7 changed files with 643 additions and 325 deletions

View File

@@ -18,29 +18,44 @@
(lam
__constr_get_field
[
[
(lam
x
[
(force (builtin ifThenElse))
[
(builtin equalsByteString)
[
(builtin equalsByteString)
(builtin unBData)
[
(builtin unBData)
[
[
__constr_get_field
[ __constr_fields_exposer datum ]
]
(con integer 0)
__constr_get_field
[ __constr_fields_exposer datum ]
]
(con integer 0)
]
]
(con bytestring #0102)
]
[
(builtin unBData)
[
[
__constr_get_field
[ __constr_fields_exposer rdmr ]
]
(con integer 0)
]
]
]
(con bool False)
)
[
[
(builtin mkCons)
[ (builtin bData) (con bytestring #f4) ]
]
[
[ (builtin mkCons) rdmr ]
[ [ (builtin mkCons) datum ] (con listdata []) ]
]
]
(con bool True)
]
)
(lam