Shell: the genesis block should not flag the node as 'bootstraped'

This commit is contained in:
Grégoire Henry 2017-03-04 09:54:16 +01:00
parent 8453a69e0b
commit 534dc6af9d

View File

@ -504,7 +504,13 @@ let rec create_validator ?parent worker state db net =
| Some block
when Time.(block.State.Valid_block.timestamp < add (Time.now ()) (-60L)) ->
wait ()
| Some _ | None -> Lwt.return_unit in
| _ ->
State.Valid_block.Current.head net >>= fun head ->
State.Valid_block.Current.genesis net >>= fun genesis ->
if Block_hash.equal head.hash genesis.hash then
wait ()
else
Lwt.return_unit in
let t =
wait () >>= fun () ->
Watcher.shutdown stopper ;