Removed redundant argument from BucketRefreshser constructor.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/Kademlia/Bootstrap.hs b/src/Network/Kademlia/Bootstrap.hs
index 87fdc22f..3540b24e 100644
--- a/src/Network/Kademlia/Bootstrap.hs
+++ b/src/Network/Kademlia/Bootstrap.hs
@@ -73,14 +73,14 @@ data BucketRefresher nid ni = forall tok addr. Ord addr =>  BucketRefresher
     , refreshPing     :: ni -> IO Bool
     }
 
-newBucketRefresher :: (Ord addr, Ord a, Hashable a)
-                    => KademliaSpace a ni
-                    -> ni
+newBucketRefresher :: (Ord addr, Hashable addr, SensibleNodeId nid ni)
+                    => ni
                     -> Search nid addr tok ni ni
                     -> (ni -> IO Bool)
                     -> STM (BucketRefresher nid ni)
-newBucketRefresher spc template_ni sch ping = do
-    let nodeId = kademliaLocation spc
+newBucketRefresher template_ni sch ping = do
+    let spc    = searchSpace sch
+        nodeId = kademliaLocation spc
     bkts <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) template_ni R.defaultBucketCount
     sched <- newTVar Int.empty
     return  BucketRefresher