diff options
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 |