From f5186fa528bf9c79533d4c4ee1a3846eab4fc6be Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 14 Jul 2017 23:50:39 -0400
Subject: Removed ip polymorphism from PeerAddr type.

---
 src/Data/Torrent.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Data/Torrent.hs')

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index b3bf0ec7..73422a04 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -239,10 +239,12 @@ instance BEncode InfoHash where
   fromBEncode be = InfoHash <$> fromBEncode be
 #endif
 
+#if 0
 instance TableKey KMessageOf InfoHash where
   toNodeId = either (error msg) id . S.decode . S.encode
     where -- TODO unsafe coerse?
       msg = "tableKey: impossible"
+#endif
 
 
 -- | Convert to\/from raw bytestring. (no encoding)
-- 
cgit v1.2.3