fix errors messages in parser
This commit is contained in:
parent
dd4abbf46a
commit
c110670a38
File diff suppressed because it is too large
Load Diff
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user