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