diff options
Diffstat (limited to 'dht/src/Network/Tox/Relay.hs')
-rw-r--r-- | dht/src/Network/Tox/Relay.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dht/src/Network/Tox/Relay.hs b/dht/src/Network/Tox/Relay.hs index b315648a..6a1f04fa 100644 --- a/dht/src/Network/Tox/Relay.hs +++ b/dht/src/Network/Tox/Relay.hs | |||
@@ -273,7 +273,9 @@ tcpRelay crypto udp_addr sendOnion = do | |||
273 | bany <- getBindAddress "" True | 273 | bany <- getBindAddress "" True |
274 | h <- forkStreamServer ServerConfig | 274 | h <- forkStreamServer ServerConfig |
275 | { serverWarn = dput XMisc | 275 | { serverWarn = dput XMisc |
276 | , serverSession = relaySession crypto clients cons sendOnion | 276 | , serverSession = \s n h -> relaySession crypto clients cons sendOnion s n h |
277 | `catchIOError` \e -> do | ||
278 | dput XRelay $ "relaySession died: " ++ show e | ||
277 | } | 279 | } |
278 | [b443,b80,b3389,udp_addr,b33445,bany] | 280 | [b443,b80,b3389,udp_addr,b33445,bany] |
279 | return (h,sendTCP_ clients) | 281 | return (h,sendTCP_ clients) |