Simplified KRPC class.

2 files changed, 0 insertions, 17 deletions

diff --git a/src/Network/DHT/Mainline.hs b/src/Network/DHT/Mainline.hs
index a5f4f606..d118ceb0 100644
--- a/src/Network/DHT/Mainline.hs
+++ b/src/Network/DHT/Mainline.hs
@@ -227,9 +227,6 @@ instance Serialize (Response Ping) where
 -- | \"q\" = \"ping\"
 instance KRPC (Query Ping) (Response Ping) where
 #ifdef VERSION_bencoding
-  type Envelope (Query Ping) (Response Ping) = BValue
-  seal = toBEncode
-  unseal = fromBEncode
   method = "ping"
 #else
   method = Method Tox.Ping -- response: Tox.Pong
@@ -319,9 +316,6 @@ instance Serialize (Response (NodeFound ip)) where
 instance (Address ip, Typeable ip)
       => KRPC (Query (FindNode ip)) (Response (NodeFound ip)) where
 #ifdef VERSION_bencoding
-  type Envelope (Query (FindNode ip)) (Response (NodeFound ip)) = BValue
-  seal = toBEncode
-  unseal = fromBEncode
   method = "find_node"
 #else
   method = Method Tox.GetNodes -- response: Tox.SendNodes
@@ -390,9 +384,6 @@ instance (Typeable ip, Serialize ip) => BEncode (GotPeers ip) where
 -- | \"q" = \"get_peers\"
 instance (Typeable ip, Serialize ip) =>
          KRPC (Query (GetPeers ip)) (Response (GotPeers ip)) where
-  type Envelope (Query (GetPeers ip)) (Response (GotPeers ip)) = BValue
-  seal = toBEncode
-  unseal = fromBEncode
   method = "get_peers"
 
 {-----------------------------------------------------------------------
@@ -465,9 +456,6 @@ instance BEncode Announced where
 
 -- | \"q" = \"announce\"
 instance KRPC (Query Announce) (Response Announced) where
-  type Envelope (Query Announce) (Response Announced) = BValue
-  seal = toBEncode
-  unseal = fromBEncode
   method = "announce_peer"
 
 -- endif VERSION_bencoding
diff --git a/src/Network/KRPC/Method.hs b/src/Network/KRPC/Method.hs
index ea11720c..3a2bd020 100644
--- a/src/Network/KRPC/Method.hs
+++ b/src/Network/KRPC/Method.hs
@@ -97,8 +97,6 @@ class ( Typeable req, Typeable resp
       )
     => KRPC req resp | req -> resp, resp -> req where
 
-  type Envelope req resp
-
   -- | Method name. Default implementation uses lowercased @req@
   -- datatype name.
   --
@@ -111,6 +109,3 @@ class ( Typeable req, Typeable resp
     where
       hole = error "krpc.method: impossible" :: req
 #endif
-
-  unseal :: Envelope req resp -> Either String req
-  seal :: resp -> Envelope req resp