summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT')
-rw-r--r--src/Network/BitTorrent/DHT/Query.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index e1104cb9..820db8ba 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -112,7 +112,7 @@ nodeHandler :: ( Address ip
112#endif 112#endif
113 => (NodeAddr ip -> a -> DHT ip b) -> NodeHandler ip 113 => (NodeAddr ip -> a -> DHT ip b) -> NodeHandler ip
114#ifdef VERSION_bencoding 114#ifdef VERSION_bencoding
115nodeHandler action = handler mainline $ \ sockAddr qry -> do 115nodeHandler action = handler $ \ sockAddr qry -> do
116 let remoteId = queringNodeId qry 116 let remoteId = queringNodeId qry
117 read_only = queryIsReadOnly qry 117 read_only = queryIsReadOnly qry
118 q = queryParams qry 118 q = queryParams qry