improve badly annotated timestamp error
This commit is contained in:
parent
e18233434d
commit
70977d1f00
@ -51,7 +51,7 @@ let make_dry_run_options (opts : dry_run_options) : options result =
|
|||||||
| Some st ->
|
| Some st ->
|
||||||
match Memory_proto_alpha.Protocol.Alpha_context.Timestamp.of_notation st with
|
match Memory_proto_alpha.Protocol.Alpha_context.Timestamp.of_notation st with
|
||||||
| Some t -> ok (Some t)
|
| Some t -> ok (Some t)
|
||||||
| None -> simple_fail "bad timestamp notation" in
|
| None -> simple_fail ("\""^st^"\" is a bad timestamp notation") in
|
||||||
ok @@ make_options ?predecessor_timestamp:predecessor_timestamp ~amount ?source:sender ?payer:source ()
|
ok @@ make_options ?predecessor_timestamp:predecessor_timestamp ~amount ?source:sender ?payer:source ()
|
||||||
|
|
||||||
let ex_value_ty_to_michelson (v : ex_typed_value) : Michelson.t result =
|
let ex_value_ty_to_michelson (v : ex_typed_value) : Michelson.t result =
|
||||||
|
Loading…
Reference in New Issue
Block a user