Alpha/Baker: comments

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

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