diff options
Diffstat (limited to 'src/Network')
| -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 |