diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
| -rw-r--r-- | dht/src/Network/Tox.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs index 084a9978..0a6cccaa 100644 --- a/dht/src/Network/Tox.hs +++ b/dht/src/Network/Tox.hs | |||
| @@ -357,6 +357,8 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do | |||
| 357 | Multi.SessionTCP :=> Identity (ViaRelay Nothing nid relay) | 357 | Multi.SessionTCP :=> Identity (ViaRelay Nothing nid relay) |
| 358 | -> do let relayclient = relayClient $ tcpRelayPinger orouter | 358 | -> do let relayclient = relayClient $ tcpRelayPinger orouter |
| 359 | msaddr <- Multi.tcpConnectionRequest relayclient (id2key nid) relay | 359 | msaddr <- Multi.tcpConnectionRequest relayclient (id2key nid) relay |
| 360 | when (isNothing msaddr) $ | ||
| 361 | dput XMan $ "Unable to establish relay connection!" | ||
| 360 | return $ maybe saddr Multi.sessionAddr msaddr | 362 | return $ maybe saddr Multi.sessionAddr msaddr |
| 361 | _ -> return saddr | 363 | _ -> return saddr |
| 362 | sendMessage handshakes saddr' hs | 364 | sendMessage handshakes saddr' hs |