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
|
||||
return @@ I.E_let_in {let_binder=(binder,ty_opt);inline;rhs;let_result}
|
||||
| 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}
|
||||
| O.E_constructor {constructor;element} ->
|
||||
let%bind element = uncompile_expression element in
|
||||
|
Loading…
Reference in New Issue
Block a user