Fix minor typos in wrong michelson contract parameter/storage msgs
This commit is contained in:
parent
e834e2ac20
commit
5108b820cf
@ -6,15 +6,15 @@ module Errors = struct
|
|||||||
let title_type_check_msg () = "Invalid contract"
|
let title_type_check_msg () = "Invalid contract"
|
||||||
let bad_parameter () =
|
let bad_parameter () =
|
||||||
let message () =
|
let message () =
|
||||||
"bad contract parameter type (some michelson type are forbidden as contract parameter)" in
|
"bad contract parameter type (some michelson types are forbidden as contract parameter)" in
|
||||||
error title_type_check_msg message
|
error title_type_check_msg message
|
||||||
let bad_storage () =
|
let bad_storage () =
|
||||||
let message () =
|
let message () =
|
||||||
"bad storage type (some michelson type are forbidden as contract storage)" in
|
"bad storage type (some michelson types are forbidden as contract storage)" in
|
||||||
error title_type_check_msg message
|
error title_type_check_msg message
|
||||||
let bad_contract () =
|
let bad_contract () =
|
||||||
let message () =
|
let message () =
|
||||||
"bad contract type (contract entry point is expected to be of the form `parameter * storage -> list(operation) * storage`)" in
|
"bad contract type (contract entry point is expected to be of the form \"parameter * storage -> list(operation) * storage\")" in
|
||||||
error title_type_check_msg message
|
error title_type_check_msg message
|
||||||
let unknown () =
|
let unknown () =
|
||||||
let message () =
|
let message () =
|
||||||
|
Loading…
Reference in New Issue
Block a user