From ebcc63aefb6abb7983b071e19a6eb5f61754dfe5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@ocamlpro.com>
Date: Fri, 25 Nov 2016 23:05:15 +0100
Subject: [PATCH] Shell: typo in P2P identity proof-of-work

---
 src/utils/crypto_box.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/utils/crypto_box.ml b/src/utils/crypto_box.ml
index 5acd2fcd1..237d068a5 100644
--- a/src/utils/crypto_box.ml
+++ b/src/utils/crypto_box.ml
@@ -37,7 +37,7 @@ let compare_target hash target =
   let rec check offset = function
     | [] -> true
     | 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 0 target