summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT/Message.hs
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2014-01-08 07:53:52 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2014-01-08 07:53:52 +0400
commit64f26fba49e7ae933a0ccdcd7cdbb56c5c6a7df7 (patch)
tree05aa86f2dd3ecff40b6fde9b40e02a0d4e404e91 /src/Network/BitTorrent/DHT/Message.hs
parent3ddfd24a0b158bdf06f654a373f82e0591cb9b8f (diff)
Use newer krpc package
Diffstat (limited to 'src/Network/BitTorrent/DHT/Message.hs')
-rw-r--r--src/Network/BitTorrent/DHT/Message.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT/Message.hs b/src/Network/BitTorrent/DHT/Message.hs
index 461c8f83..ac4889fe 100644
--- a/src/Network/BitTorrent/DHT/Message.hs
+++ b/src/Network/BitTorrent/DHT/Message.hs
@@ -108,7 +108,7 @@ node_id_key = "id"
108data Query a = Query 108data Query a = Query
109 { thisNodeId :: NodeId -- ^ node id of /quering/ node; 109 { thisNodeId :: NodeId -- ^ node id of /quering/ node;
110 , queryParams :: a -- ^ query parameters. 110 , queryParams :: a -- ^ query parameters.
111 } deriving (Show, Eq) 111 } deriving (Show, Eq, Typeable)
112 112
113instance BEncode a => BEncode (Query a) where 113instance BEncode a => BEncode (Query a) where
114 toBEncode Query {..} = toDict $ 114 toBEncode Query {..} = toDict $
@@ -128,7 +128,7 @@ instance BEncode a => BEncode (Query a) where
128data Response a = Response 128data Response a = Response
129 { remoteNodeId :: NodeId -- ^ node id of /quered/ node; 129 { remoteNodeId :: NodeId -- ^ node id of /quered/ node;
130 , responseVals :: a -- ^ query result. 130 , responseVals :: a -- ^ query result.
131 } deriving (Show, Eq) 131 } deriving (Show, Eq, Typeable)
132 132
133instance BEncode a => BEncode (Response a) where 133instance BEncode a => BEncode (Response a) where
134 toBEncode = toBEncode . toQuery 134 toBEncode = toBEncode . toQuery