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

Fix minor typos in wrong michelson contract parameter/storage msgs

Browse Source
This commit is contained in:
John David Pressman 2020-01-01 14:15:49 -08:00 committed by Lesenechal Remi
parent e834e2ac20
commit 5108b820cf
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,15 +6,15 @@ module Errors = struct
let title_type_check_msg () = "Invalid contract"
let bad_parameter () =
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
let bad_storage () =
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
let bad_contract () =
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
let unknown () =
let message () =
@ -32,7 +32,7 @@ let build_contract : Compiler.compiled_expression -> Michelson.michelson result
Trace.trace_tzresult_lwt (simple_error "Could not unparse storage") @@
Proto_alpha_utils.Memory_proto_alpha.unparse_ty_michelson _storage_ty in
let contract = Michelson.contract param_michelson storage_michelson compiled.expr in
let%bind res =
let%bind res =
Trace.trace_tzresult_lwt (simple_error "Could not typecheck the code") @@
Proto_alpha_utils.Memory_proto_alpha.typecheck_contract contract in
match res with
@ -54,4 +54,4 @@ let assert_equal_contract_type : check_type -> Compiler.compiled_expression -> C
let%bind _ =
Trace.trace_tzresult (simple_error "Passed parameter does not match the contract type") @@
Proto_alpha_utils.Memory_proto_alpha.assert_equal_michelson_type expected_ty actual_ty in
ok ()
ok ()