Fixing the constant constructors in CameLIGO's simplifier.
This commit is contained in:
parent
e99c9b32de
commit
7c1d637226
@ -224,7 +224,7 @@ let rec simpl_type_expression : Raw.type_expr -> type_expression result = fun te
|
|||||||
|
|
||||||
and simpl_list_type_expression (lst:Raw.type_expr list) : type_expression result =
|
and simpl_list_type_expression (lst:Raw.type_expr list) : type_expression result =
|
||||||
match lst with
|
match lst with
|
||||||
| [] -> assert false
|
| [] -> ok @@ t_unit
|
||||||
| [hd] -> simpl_type_expression hd
|
| [hd] -> simpl_type_expression hd
|
||||||
| lst ->
|
| lst ->
|
||||||
let%bind lst = bind_map_list simpl_type_expression lst in
|
let%bind lst = bind_map_list simpl_type_expression lst in
|
||||||
|
Loading…
Reference in New Issue
Block a user