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

better description for bad_contract error message

Browse Source
This commit is contained in:
Lesenechal Remi 2020-01-21 10:44:32 +01:00
parent f1977b12aa
commit a2c51ddbcf
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/main/compile/of_michelson.ml
View File

@ -5,10 +5,9 @@ open Trace
module Errors = struct module Errors = struct
(* (*
TODO: those errors should have been caught in the earlier stages on the ligo pipeline TODO: those errors should have been caught in the earlier stages on the ligo pipeline
Here, in case of contract not typechecking, we should write a warning with a "please report" build_contract is a kind of security net
on stderr and print the ill-typed michelson code;
*) *)
let title_type_check_msg () = "Invalid contract (This might be a compiler bug, please report) " let title_type_check_msg () = "generated Michelson contract failed to typecheck"
let bad_parameter c () = let bad_parameter c () =
let message () = let message () =
let code = Format.asprintf "%a" Michelson.pp c in let code = Format.asprintf "%a" Michelson.pp c in
@ -22,7 +21,7 @@ module Errors = struct
let bad_contract c () = let bad_contract c () =
let message () = let message () =
let code = Format.asprintf "%a" Michelson.pp c in let code = Format.asprintf "%a" Michelson.pp c in
"bad contract type (contract entry point is expected to be of the form \"parameter * storage -> list(operation) * storage\"):\n"^code in "bad contract type\n"^code in
error title_type_check_msg message error title_type_check_msg message
let unknown () = let unknown () =
let message () = let message () =