From 70977d1f00696d10fed67de18863e3b07ac030ac Mon Sep 17 00:00:00 2001 From: Lesenechal Remi Date: Thu, 19 Dec 2019 19:12:44 +0100 Subject: [PATCH] improve badly annotated timestamp error --- src/main/run/of_michelson.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/main/run/of_michelson.ml b/src/main/run/of_michelson.ml index ff7f99ff0..ef26bc11a 100644 --- a/src/main/run/of_michelson.ml +++ b/src/main/run/of_michelson.ml @@ -51,7 +51,7 @@ let make_dry_run_options (opts : dry_run_options) : options result = | Some st -> match Memory_proto_alpha.Protocol.Alpha_context.Timestamp.of_notation st with | 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 () let ex_value_ty_to_michelson (v : ex_typed_value) : Michelson.t result =