diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Query.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Query.hs | 2 |
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 |
115 | nodeHandler action = handler mainline $ \ sockAddr qry -> do | 115 | nodeHandler 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 |