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

Proto: fix freeze_rolls_for_cycle

Browse Source 
That's what happen when no-one review the code...
This commit is contained in:
Grégoire Henry 2017-02-14 09:42:52 +01:00
parent 90c5314c4f
commit d475d1ac29
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/proto/bootstrap/roll_storage.ml
View File

@ -44,12 +44,12 @@ let fold ctxt ~f init =
let freeze_rolls_for_cycle ctxt cycle =
fold ctxt (ctxt, Roll_repr.first)
~f:(fun roll contract (ctxt, promoted_roll as acc) ->
~f:(fun _roll contract (ctxt, promoted_roll as acc) ->
get_contract_delegate ctxt contract >>=? function
| None -> return acc
| Some delegate ->
Storage.Roll.Owner_for_cycle.init
ctxt (cycle, roll) delegate >>=? fun ctxt ->
ctxt (cycle, promoted_roll) delegate >>=? fun ctxt ->
return (ctxt, Roll_repr.succ promoted_roll))
>>=? fun (ctxt, last_promoted_roll) ->
Storage.Roll.Last_for_cycle.init ctxt cycle last_promoted_roll