ligo/src/passes/3-self_ast_simplified/self_ast_simplified.ml

4 lines
285 B
OCaml
Raw Normal View History

2019-09-19 14:59:07 +04:00
let convert_annotation_expression = Helpers.map_expression Tezos_type_annotation.peephole_expression
let convert_annotation_program = Helpers.map_program Tezos_type_annotation.peephole_expression
2019-09-20 22:38:04 +04:00
let convert_none_variant_to_const = Helpers.map_program None_variant.peephole_expression