From 745a4dd8826f474ac7cabd9897744f86fe5a9142 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 17 Jul 2017 23:17:50 -0400
Subject: Implement clientAddress for Mainline DHT.

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

(limited to 'src/Network')

diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs
index 0eb1078b..273cf9dc 100644
--- a/src/Network/DHT/Routing.hs
+++ b/src/Network/DHT/Routing.hs
@@ -550,6 +550,9 @@ tableBits testbit (BucketList self _ bkts) =
     zipWith const (map (testbit self) [0..])
                   bkts
 
+selfNode :: BucketList ni -> ni
+selfNode (BucketList self _ _) = self
+
 chunksOf :: Int -> [e] -> [[e]]
 chunksOf i ls = map (take i) (build (splitter ls)) where
   splitter :: [e] -> ([e] -> a -> a) -> a -> a
-- 
cgit v1.2.3