Removed /nid/ type variable from routing 'Table'.

1 files changed, 3 insertions, 3 deletions

diff --git a/Kademlia.hs b/Kademlia.hs
index 7bffe4c1..63c2b494 100644
--- a/Kademlia.hs
+++ b/Kademlia.hs
@@ -114,10 +114,10 @@ contramapIR f ir = InsertionReporter
 -- | All the IO operations neccessary to maintain a Kademlia routing table.
 data TableStateIO nid ni = TableStateIO
     { -- | Write the routing table.  Typically 'writeTVar'.
-      tblWrite :: R.Table ni nid -> STM ()
+      tblWrite :: R.Table ni -> STM ()
 
       -- | Read the routing table.  Typically 'readTVar'.
-    , tblRead :: STM (R.Table ni nid)
+    , tblRead :: STM (R.Table ni)
 
       -- | Issue a ping to a remote node and report 'True' if the node
       -- responded within an acceptable time and 'False' otherwise.
@@ -136,7 +136,7 @@ data TableStateIO nid ni = TableStateIO
     , tblChanged :: RoutingTableChanged ni -> STM (IO ())
     }
 
-vanillaIO :: TVar (Table ni nid) -> (ni -> IO Bool) -> TableStateIO nid ni
+vanillaIO :: TVar (Table ni) -> (ni -> IO Bool) -> TableStateIO nid ni
 vanillaIO var ping = TableStateIO
     { tblRead = readTVar var
     , tblWrite = writeTVar var