Alpha/Baker: comments
This commit is contained in:
parent
c35f42ff0e
commit
a5cb2c1a5d
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user