From a5cb2c1a5d9ca7fa8f61da091e9bd08e636e11ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Tue, 19 Jun 2018 15:34:33 +0800 Subject: [PATCH] Alpha/Baker: comments --- src/proto_alpha/lib_client/client_proto_args.ml | 2 +- src/proto_alpha/lib_delegate/client_baking_forge.ml | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_args.ml b/src/proto_alpha/lib_client/client_proto_args.ml index 9a12444ef..d5eb1d44b 100644 --- a/src/proto_alpha/lib_client/client_proto_args.ml +++ b/src/proto_alpha/lib_client/client_proto_args.ml @@ -37,7 +37,7 @@ let () = ~title:"Bad -max-priority arg" ~description:("invalid priority in -max-priority") ~pp:(fun ppf literal -> - Format.fprintf ppf "invalid priority '%s'in -max-priority" literal) + Format.fprintf ppf "invalid priority '%s' in -max-priority" literal) Data_encoding.(obj1 (req "parameter" string)) (function Bad_max_priority parameter -> Some parameter | _ -> None) (fun parameter -> Bad_max_priority parameter) ; diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml index 39c8c2dec..1c1b0247f 100644 --- a/src/proto_alpha/lib_delegate/client_baking_forge.ml +++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml @@ -732,7 +732,7 @@ let bake (cctxt : #Proto_alpha.full) ?threshold state = return () end - | _ -> + | _ -> (* no candidates, or none fit-enough *) lwt_debug "No valid candidates." >>= fun () -> return () @@ -792,7 +792,7 @@ let create ] >>= function (* event matching *) | `Hash (None | Some (Error _)) -> - (* return to restart *) + (* exit when the node is unavailable *) last_get_block := None ; lwt_log_error "Connection to node lost, exiting." >>= fun () -> exit 1