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

Proto/Alpha: fix mining right timestamp

Browse Source
This commit is contained in:
Grégoire Henry 2017-03-06 19:06:39 +01:00
parent 39403e243e
commit ec12edeb91
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/alpha/mining.ml
View File

@ -37,7 +37,7 @@ let () =
let minimal_time c priority pred_timestamp = let minimal_time c priority pred_timestamp =
let rec cumsum_slot_durations acc durations p = let rec cumsum_slot_durations acc durations p =
if Compare.Int32.(=) p 0l then if Compare.Int32.(<=) p 0l then
ok acc ok acc
else match durations with else match durations with
| [] -> Error_monad.error Invalid_slot_durations_constant | [] -> Error_monad.error Invalid_slot_durations_constant
@ -50,7 +50,7 @@ let minimal_time c priority pred_timestamp =
cumsum_slot_durations acc durations p in cumsum_slot_durations acc durations p in
Lwt.return Lwt.return
(cumsum_slot_durations (cumsum_slot_durations
pred_timestamp (Constants.slot_durations c) priority) pred_timestamp (Constants.slot_durations c) (Int32.succ priority))
let check_timestamp c priority pred_timestamp = let check_timestamp c priority pred_timestamp =
minimal_time c priority pred_timestamp >>=? fun minimal_time -> minimal_time c priority pred_timestamp >>=? fun minimal_time ->