Fixing the constant constructors in CameLIGO's simplifier.

This commit is contained in:
Christian Rinderknecht 2019-12-24 18:56:21 +01:00
parent e99c9b32de
commit 7c1d637226

View File

@ -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