diff options
author | joe <joe@jerkface.net> | 2017-09-06 01:27:36 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-09-06 01:31:41 -0400 |
commit | 921f845e56033b959247dc0347083e287963f677 (patch) | |
tree | 4ff89d4186c255d38b0a59a7eb5b47ad521be299 /src/Network/DHT | |
parent | 2423be0ebf0bcdc4568b251cd8f9a9830bf9b04f (diff) |
Removed Data.Bits requirement for Kademlia node id.
Diffstat (limited to 'src/Network/DHT')
-rw-r--r-- | src/Network/DHT/Routing.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 | |||
788 | , kademliaTestBit :: nid -> Word -> Bool | 788 | , kademliaTestBit :: nid -> Word -> Bool |
789 | -- | The Kademlia xor-metric. | 789 | -- | The Kademlia xor-metric. |
790 | , kademliaXor :: nid -> nid -> nid | 790 | , kademliaXor :: nid -> nid -> nid |
791 | |||
792 | , kademliaSample :: forall m. Applicative m => (Int -> m BS.ByteString) -> nid -> (Int,Word8,Word8) -> m nid | ||
791 | } | 793 | } |
792 | 794 | ||
793 | contramapKS f ks = ks | 795 | contramapKS f ks = ks |