improve badly annotated timestamp error

This commit is contained in:
Lesenechal Remi 2019-12-19 19:12:44 +01:00
parent e18233434d
commit 70977d1f00

View File

@ -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 =