1 files changed, 1 insertions, 26 deletions

diff --git a/dht/src/Data/Tox/DHT/Multi.hs b/dht/src/Data/Tox/DHT/Multi.hs
index 8d614262..acd645a3 100644
--- a/dht/src/Data/Tox/DHT/Multi.hs
+++ b/dht/src/Data/Tox/DHT/Multi.hs
@@ -11,7 +11,7 @@ import Crypto.PubKey.Curve25519 (PublicKey)
 import qualified Network.Tox.NodeId as UDP
          ;import Network.Tox.NodeId (NodeId)
 import qualified Network.Tox.TCP.NodeId as TCP
-import Data.Tox.Onion (OnionDestination,RouteId,AnnouncedRendezvous)
+import Data.Tox.Onion (OnionDestination,RouteId)
 import Data.Tox.Relay hiding (NodeInfo)
 import Network.Address (either4or6)
 import Network.Tox.TCP as TCP (ViaRelay(..), tcpConnectionRequest_)
@@ -95,28 +95,10 @@ type NodeInfo = DSum T Identity
 type SessionAddress = DSum S Identity
 type OnionAddress = DSum O Identity
 
-data R addr where
-    RendezvousUDP :: R AnnouncedRendezvous
-    RendezvousTCP :: R AnnouncedRendezvous
-
-instance GEq R where
-    geq RendezvousUDP RendezvousUDP = Just Refl
-    geq RendezvousTCP RendezvousTCP = Just Refl
-    geq _          _          = Nothing
-instance GCompare R where
-    gcompare RendezvousUDP RendezvousUDP = GEQ
-    gcompare RendezvousUDP RendezvousTCP = GLT
-    gcompare RendezvousTCP RendezvousTCP = GEQ
-    gcompare RendezvousTCP RendezvousUDP = GGT
-instance GShow R where
-    gshowsPrec _ RendezvousUDP = showString "UDP"
-    gshowsPrec _ RendezvousTCP = showString "TCP"
-
 #if MIN_VERSION_dependent_sum(0,6,0)
 deriveArgDict ''T
 deriveArgDict ''S
 deriveArgDict ''O
-deriveArgDict ''R
 #else
 instance ShowTag T Identity where
     showTaggedPrec UDP = showsPrec
@@ -133,15 +115,8 @@ instance EqTag S Identity where
 instance OrdTag S Identity where
     compareTagged SessionUDP SessionUDP = compare
     compareTagged SessionTCP SessionTCP = compare
-instance ShowTag R Identity where
-    showTaggedPrec RendezvousUDP = showsPrec
-    showTaggedPrec RendezvousTCP = showsPrec
 #endif
 
-untagRendezvous :: DSum R Identity -> AnnouncedRendezvous
-untagRendezvous (RendezvousUDP :=> Identity o) = o
-untagRendezvous (RendezvousTCP :=> Identity o) = o
-
 
 nodeInfo :: NodeId -> DSum S Identity -> Either String (DSum T Identity)
 nodeInfo nid (SessionUDP :=> Identity saddr) = fmap (UDP ==>) $ UDP.nodeInfo nid saddr