1 files changed, 3 insertions, 0 deletions

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