Don't use BEP 43 read-only nodes for routing.

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)
           => NodeAddr ip -> a -> DHT ip (NodeId, b)
 queryNode addr q = do
   nid <- asks thisNodeId
-  Response remoteId r <- query (toSockAddr addr) (Query nid q)
+  let read_only = False -- TODO: check for NAT issues. (BEP 43)
+  Response remoteId r <- query (toSockAddr addr) (Query nid read_only q)
   insertNode (NodeInfo remoteId addr)
   return (remoteId, r)