diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index 42270ae8..ffce47de 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
@@ -492,7 +492,8 @@ queryNode :: forall a b ip. Address ip => KRPC (Query a) (Response b) | |||
492 | => NodeAddr ip -> a -> DHT ip (NodeId, b) | 492 | => NodeAddr ip -> a -> DHT ip (NodeId, b) |
493 | queryNode addr q = do | 493 | queryNode addr q = do |
494 | nid <- asks thisNodeId | 494 | nid <- asks thisNodeId |
495 | Response remoteId r <- query (toSockAddr addr) (Query nid q) | 495 | let read_only = False -- TODO: check for NAT issues. (BEP 43) |
496 | Response remoteId r <- query (toSockAddr addr) (Query nid read_only q) | ||
496 | insertNode (NodeInfo remoteId addr) | 497 | insertNode (NodeInfo remoteId addr) |
497 | return (remoteId, r) | 498 | return (remoteId, r) |
498 | 499 | ||