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

Alpha: Minor refactoring to may_start_new_cycle

Browse Source
This commit is contained in:
Pietro Abate 2017-11-17 14:21:24 +01:00 committed by Benjamin Canou
parent 59d69c8fb1
commit 7fcc8fa7f9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/proto_alpha/lib_protocol/src/apply.ml
View File

@ -297,11 +297,12 @@ let may_start_new_cycle ctxt =
| None -> return ctxt
| Some last_cycle ->
let new_cycle = Cycle.succ last_cycle in
let succ_new_cycle = Cycle.succ new_cycle in
Bootstrap.refill ctxt >>=? fun ctxt ->
Seed.clear_cycle ctxt last_cycle >>=? fun ctxt ->
Seed.compute_for_cycle ctxt (Cycle.succ new_cycle) >>=? fun ctxt ->
Seed.compute_for_cycle ctxt succ_new_cycle >>=? fun ctxt ->
Roll.clear_cycle ctxt last_cycle >>=? fun ctxt ->
Roll.freeze_rolls_for_cycle ctxt (Cycle.succ new_cycle) >>=? fun ctxt ->
Roll.freeze_rolls_for_cycle ctxt succ_new_cycle >>=? fun ctxt ->
let timestamp = Timestamp.current ctxt in
Lwt.return (Timestamp.(timestamp +? (Constants.time_before_reward ctxt)))
>>=? fun reward_date ->