balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha/Baker: comments

Browse Source
This commit is contained in:
Raphaël Proust 2018-06-19 15:34:33 +08:00
parent c35f42ff0e
commit a5cb2c1a5d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_client/client_proto_args.ml
View File

@ -37,7 +37,7 @@ let () =
~title:"Bad -max-priority arg" ~title:"Bad -max-priority arg"
~description:("invalid priority in -max-priority") ~description:("invalid priority in -max-priority")
~pp:(fun ppf literal -> ~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)) Data_encoding.(obj1 (req "parameter" string))
(function Bad_max_priority parameter -> Some parameter | _ -> None) (function Bad_max_priority parameter -> Some parameter | _ -> None)
(fun parameter -> Bad_max_priority parameter) ; (fun parameter -> Bad_max_priority parameter) ;

4
src/proto_alpha/lib_delegate/client_baking_forge.ml
View File

@ -732,7 +732,7 @@ let bake (cctxt : #Proto_alpha.full) ?threshold state =
return () return ()
end end
| _ -> | _ -> (* no candidates, or none fit-enough *)
lwt_debug "No valid candidates." >>= fun () -> lwt_debug "No valid candidates." >>= fun () ->
return () return ()
@ -792,7 +792,7 @@ let create
] >>= function ] >>= function
(* event matching *) (* event matching *)
| `Hash (None | Some (Error _)) -> | `Hash (None | Some (Error _)) ->
(* return to restart *) (* exit when the node is unavailable *)
last_get_block := None ; last_get_block := None ;
lwt_log_error "Connection to node lost, exiting." >>= fun () -> lwt_log_error "Connection to node lost, exiting." >>= fun () ->
exit 1 exit 1