c6b95bf07a
- do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages
30 lines
868 B
OCaml
30 lines
868 B
OCaml
open Trace
|
|
module Errors = Errors
|
|
|
|
let all_expression_mapper = [
|
|
Tezos_type_annotation.peephole_expression ;
|
|
None_variant.peephole_expression ;
|
|
Literals.peephole_expression ;
|
|
]
|
|
let all_type_expression_mapper = [
|
|
Entrypoints_length_limit.peephole_type_expression ;
|
|
]
|
|
|
|
let all_exp = List.map (fun el -> Helpers.Expression el) all_expression_mapper
|
|
let all_ty = List.map (fun el -> Helpers.Type_expression el) all_type_expression_mapper
|
|
|
|
let all_program =
|
|
let all_p = List.map Helpers.map_program all_exp in
|
|
let all_p2 = List.map Helpers.map_program all_ty in
|
|
bind_chain (List.append all_p all_p2)
|
|
|
|
let all_expression =
|
|
let all_p = List.map Helpers.map_expression all_expression_mapper in
|
|
bind_chain all_p
|
|
|
|
let map_expression = Helpers.map_expression
|
|
|
|
let fold_expression = Helpers.fold_expression
|
|
|
|
let fold_map_expression = Helpers.fold_map_expression
|