Started migration away from KRPC class.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index 1f70aea2..0ce2efd7 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -195,6 +195,8 @@ import System.FilePath
 import System.Posix.Types
 
 import Network.BitTorrent.Address
+import Network.BitTorrent.DHT.Routing
+import Network.DatagramServer.Mainline
 
 
 {-----------------------------------------------------------------------
@@ -237,6 +239,12 @@ instance BEncode InfoHash where
   fromBEncode be = InfoHash <$> fromBEncode be
 #endif
 
+instance TableKey KMessageOf InfoHash where
+  toNodeId = either (error msg) id . S.decode . S.encode
+    where -- TODO unsafe coerse?
+      msg = "tableKey: impossible"
+
+
 -- | Convert to\/from raw bytestring. (no encoding)
 instance Serialize InfoHash where
   put (InfoHash ih) = putByteString ih