Shell: typo in P2P identity proof-of-work

This commit is contained in:
Grégoire Henry 2016-11-25 23:05:15 +01:00
parent 2d61ded08b
commit ebcc63aefb

View File

@ -37,7 +37,7 @@ let compare_target hash target =
let rec check offset = function let rec check offset = function
| [] -> true | [] -> true
| x :: xs -> | x :: xs ->
Compare.Uint64.(EndianString.BigEndian.get_int64 hash offset < x) Compare.Uint64.(EndianString.BigEndian.get_int64 hash offset <= x)
&& check (offset + 8) xs in && check (offset + 8) xs in
check 0 target check 0 target