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

Alpha/Baker: Remember delegates

Browse Source
This commit is contained in:
Raphaël Proust 2018-06-14 09:41:50 +08:00 committed by Grégoire Henry
parent 3e71d21713
commit a78eabda37
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -361,7 +361,7 @@ let rec insert_baking_slot slot = function
type state = { type state = {
genesis: Block_hash.t ; genesis: Block_hash.t ;
delegates: public_key_hash list ; mutable delegates: public_key_hash list ;
mutable best: Client_baking_blocks.block_info ; mutable best: Client_baking_blocks.block_info ;
mutable future_slots: mutable future_slots:
(Time.t * (Client_baking_blocks.block_info * int * public_key_hash)) list ; (Time.t * (Client_baking_blocks.block_info * int * public_key_hash)) list ;
@ -435,13 +435,18 @@ let get_delegates cctxt state =
match state.delegates with match state.delegates with
| [] -> | [] ->
Client_keys.get_keys cctxt >>=? fun keys -> Client_keys.get_keys cctxt >>=? fun keys ->
return (List.map (fun (_,pkh,_,_) -> pkh) keys) let delegates = List.map (fun (_,pkh,_,_) -> pkh) keys in
state.delegates <- delegates;
return delegates
| _ :: _ as delegates -> return delegates | _ :: _ as delegates -> return delegates
let insert_block let insert_block
(cctxt : #Proto_alpha.full) ?max_priority state (bi: Client_baking_blocks.block_info) = (cctxt: #Proto_alpha.full)
?max_priority
state
(bi: Client_baking_blocks.block_info) =
begin begin
safe_get_unrevealed_nonces cctxt (`Hash (bi.hash, 0)) >>= fun nonces -> safe_get_unrevealed_nonces cctxt (`Hash (bi.hash, 0)) >>= fun nonces ->
Client_baking_revelation.forge_seed_nonce_revelation Client_baking_revelation.forge_seed_nonce_revelation