summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT/Routing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT/Routing.hs')
-rw-r--r--src/Network/BitTorrent/DHT/Routing.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs
index 4897a22e..f6926cb1 100644
--- a/src/Network/BitTorrent/DHT/Routing.hs
+++ b/src/Network/BitTorrent/DHT/Routing.hs
@@ -325,8 +325,10 @@ instance Pretty (Table ip) where
325 ss = shape t 325 ss = shape t
326 326
327-- | Empty table with specified /spine/ node id. 327-- | Empty table with specified /spine/ node id.
328nullTable :: Eq ip => NodeId -> Table ip 328nullTable :: Eq ip => NodeId -> BucketCount -> Table ip
329nullTable nid = Tip nid defaultBucketCount PSQ.empty 329nullTable nid n = Tip nid (bucketCount (pred n)) PSQ.empty
330 where
331 bucketCount x = max 0 (min 160 x)
330 332
331-- | Get the /spine/ node id. 333-- | Get the /spine/ node id.
332thisId :: Table ip -> NodeId 334thisId :: Table ip -> NodeId