diff options
| author | joe <joe@jerkface.net> | 2017-01-22 01:22:18 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-22 01:22:18 -0500 |
| commit | aab30811698a3b97173043e56e97f46cd3a91776 (patch) | |
| tree | 1ddf1e98538e420dce12780bdca173fb879ad725 /src/Network/BitTorrent/DHT/Session.hs | |
| parent | 21e1fdde98a2e263bf8dfc34a2545b0635e358c8 (diff) | |
Store external port number, as well as IP.
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index c8545bfd..b85e97fa 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
| @@ -373,7 +373,7 @@ checkToken addr questionableToken = do | |||
| 373 | -----------------------------------------------------------------------} | 373 | -----------------------------------------------------------------------} |
| 374 | 374 | ||
| 375 | -- | This nodes externally routable address reported by remote peers. | 375 | -- | This nodes externally routable address reported by remote peers. |
| 376 | routableAddress :: DHT ip (Maybe ip) | 376 | routableAddress :: DHT ip (Maybe SockAddr) |
| 377 | routableAddress = do | 377 | routableAddress = do |
| 378 | info <- asks routingInfo >>= liftIO . atomically . readTVar | 378 | info <- asks routingInfo >>= liftIO . atomically . readTVar |
| 379 | return $ myAddress <$> info | 379 | return $ myAddress <$> info |