Removed type argument clutter from Routing table.

1 files changed, 8 insertions, 8 deletions

diff --git a/src/Network/DatagramServer/Types.hs b/src/Network/DatagramServer/Types.hs
index 6aa7aeaa..68aa9212 100644
--- a/src/Network/DatagramServer/Types.hs
+++ b/src/Network/DatagramServer/Types.hs
@@ -326,25 +326,25 @@ genNodeId = either error id . S.decode <$> getEntropy nodeIdSize
 -- is for the current deepest bucket in our routing table:
 --
 -- > sample <- genBucketSample nid (bucketRange index is_last)
-genBucketSample :: ( FiniteBits (NodeId dht)
-                   , Serialize (NodeId dht)
-                   ) => NodeId dht -> (Int,Word8,Word8) -> IO (NodeId dht)
+genBucketSample :: ( FiniteBits nid
+                   , Serialize nid
+                   ) => nid -> (Int,Word8,Word8) -> IO nid
 genBucketSample n qmb = genBucketSample' getEntropy n qmb
 
 -- | Generalizion of 'genBucketSample' that accepts a byte generator
 -- function to use instead of the system entropy.
-genBucketSample' :: forall m dht.
+genBucketSample' :: forall m dht nid.
                     ( Applicative m
-                    , FiniteBits (NodeId dht)
-                    , Serialize (NodeId dht)
+                    , FiniteBits nid
+                    , Serialize nid
                     ) =>
-    (Int -> m ByteString) -> NodeId dht -> (Int,Word8,Word8) -> m (NodeId dht)
+    (Int -> m ByteString) -> nid -> (Int,Word8,Word8) -> m nid
 genBucketSample' gen self (q,m,b)
     | q <= 0           =  either error id . S.decode <$> gen nodeIdSize
     | q >= nodeIdSize  =  pure self
     | otherwise        =  either error id . S.decode .  build <$> gen (nodeIdSize - q + 1)
  where
-    nodeIdSize = finiteBitSize (undefined :: NodeId dht) `div` 8
+    nodeIdSize = finiteBitSize (undefined :: nid) `div` 8
     build tl = BS.init hd <> BS.cons (h .|. t) (BS.tail tl)
      where
         hd = BS.take q $ S.encode self