diff options
| author | joe <joe@jerkface.net> | 2017-06-07 05:57:20 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-06-07 05:57:20 -0400 |
| commit | 05345c643d0bcebe17f9474d9561da6e90fff34e (patch) | |
| tree | c3ad0c1dd86a376b8c177fda57d5ef835e4efdf5 /src/Network/BitTorrent/DHT/Query.hs | |
| parent | a4fe28f0cf95da88f5c2db4e3397c227625aa6ac (diff) | |
WIP: Adapting DHT to Tox network (part 4).
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 |