fix errors messages in parser

This commit is contained in:
Pierre-Emmanuel Wulfman 2020-04-20 13:34:03 +02:00
parent dd4abbf46a
commit c110670a38
2 changed files with 197 additions and 180 deletions

File diff suppressed because it is too large Load Diff

View File

@ -617,7 +617,7 @@ let rec uncompile_expression : O.expression -> I.expression result =
let%bind let_result = uncompile_expression let_result in let%bind let_result = uncompile_expression let_result in
return @@ I.E_let_in {let_binder=(binder,ty_opt);inline;rhs;let_result} return @@ I.E_let_in {let_binder=(binder,ty_opt);inline;rhs;let_result}
| O.E_raw_code {language;code} -> | O.E_raw_code {language;code} ->
let%bind code = uncompile_expression' code in let%bind code = uncompile_expression code in
return @@ I.E_raw_code {language;code} return @@ I.E_raw_code {language;code}
| O.E_constructor {constructor;element} -> | O.E_constructor {constructor;element} ->
let%bind element = uncompile_expression element in let%bind element = uncompile_expression element in