From 921f845e56033b959247dc0347083e287963f677 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 6 Sep 2017 01:27:36 -0400
Subject: Removed Data.Bits requirement for Kademlia node id.

---
 src/Network/DHT/Routing.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Network/DHT')

diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs
index 85525a90..11dbd11e 100644
--- a/src/Network/DHT/Routing.hs
+++ b/src/Network/DHT/Routing.hs
@@ -788,6 +788,8 @@ data KademliaSpace nid ni = KademliaSpace
     , kademliaTestBit :: nid -> Word -> Bool
       -- | The Kademlia xor-metric.
     , kademliaXor :: nid -> nid -> nid
+
+    , kademliaSample :: forall m. Applicative m => (Int -> m BS.ByteString) -> nid -> (Int,Word8,Word8) -> m nid
     }
 
 contramapKS f ks = ks
-- 
cgit v1.2.3