cleanup
This commit is contained in:
parent
42699256e5
commit
76ad9c47ec
@ -649,7 +649,6 @@ and type_expression' : environment -> ?tv_opt:O.type_expression -> I.expression
|
|||||||
let wtype = Format.asprintf
|
let wtype = Format.asprintf
|
||||||
"Loops over collections expect lists, sets or maps, got type %a" O.PP.type_expression tv_col in
|
"Loops over collections expect lists, sets or maps, got type %a" O.PP.type_expression tv_col in
|
||||||
fail @@ simple_error wtype in
|
fail @@ simple_error wtype in
|
||||||
let lname = lname in
|
|
||||||
let e' = Environment.add_ez_binder lname input_type e in
|
let e' = Environment.add_ez_binder lname input_type e in
|
||||||
let%bind body = type_expression' ?tv_opt:(Some tv_out) e' result in
|
let%bind body = type_expression' ?tv_opt:(Some tv_out) e' result in
|
||||||
let output_type = body.type_expression in
|
let output_type = body.type_expression in
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Build with:
|
Build & test with:
|
||||||
|
|
||||||
dune build adt_generator.a
|
dune build adt_generator.exe && ../../../_build/default/src/stages/adt_generator/adt_generator.exe
|
||||||
|
|
||||||
Run with
|
Run with
|
||||||
|
|
||||||
|
@ -95,7 +95,6 @@ and matching =
|
|||||||
|
|
||||||
and ascription = {anno_expr: expression; type_annotation: type_expression}
|
and ascription = {anno_expr: expression; type_annotation: type_expression}
|
||||||
|
|
||||||
|
|
||||||
and environment_element_definition =
|
and environment_element_definition =
|
||||||
| ED_binder
|
| ED_binder
|
||||||
| ED_declaration of (expression * free_variables)
|
| ED_declaration of (expression * free_variables)
|
||||||
|
Loading…
Reference in New Issue
Block a user