balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Print expresion in error message to ease further debugging

Browse Source
This commit is contained in:
Lesenechal Remi 2019-09-20 21:26:34 +02:00
parent ea6f51bd55
commit 8978c5c4d7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/main/run_typed.ml
View File

@ -86,7 +86,7 @@ let rec exp_to_value (exp: Mini_c.expression) : Mini_c.value result =
end
| E_make_empty_map _ ->
ok @@ []
| _ -> failwith "impossible"
| _ -> failwith "Ill-constructed map"
in
begin
match exp.type_value with
@ -98,8 +98,9 @@ let rec exp_to_value (exp: Mini_c.expression) : Mini_c.value result =
ok @@ D_map kvl
| _ -> failwith "UPDATE with a non-map type_value"
end
| _ ->
fail @@ simple_error "Can not convert expression to literal"
| _ as nl ->
let expp = Format.asprintf "'%a'" Mini_c.PP.expression' nl in
fail @@ simple_error ("Can not convert expression "^expp^" to literal")
let convert_to_literals (e:Ast_typed.annotated_expression) : Mini_c.value result =
let open Transpiler in