WIP:handling parsing errors

This commit is contained in:
Pierre-Emmanuel Wulfman 2020-04-17 20:39:30 +02:00
parent 97e33a99da
commit a4e2fe2447

View File

@ -484,7 +484,8 @@ and translate_expression (expr:expression) (env:environment) : michelson result
] ]
) )
| E_raw_michelson (code, type_anno) -> | E_raw_michelson (code, type_anno) ->
let (code, _e) = Michelson_parser.V1.parse_expression ~check:false code in let code = trace_tzresult (simple_error "lol") @@
Tezos_micheline.Micheline_parser.no_parsing_error @@ Michelson_parser.V1.parse_expression ~check:false code in
let code = Tezos_micheline.Micheline.root code.expanded in let code = Tezos_micheline.Micheline.root code.expanded in
let%bind ty = Compiler_type.type_ type_anno in let%bind ty = Compiler_type.type_ type_anno in
return @@ i_push ty code return @@ i_push ty code