diff options
author | Joe Crayne <joe@jerkface.net> | 2020-01-14 15:28:14 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-14 15:28:22 -0500 |
commit | 3940bf1dbf706f984388c5d55fb5e889e12864d5 (patch) | |
tree | f810af052cf59481895cbfa70ecd4ea4bdcd96b5 /dht | |
parent | 3197cc3d13f00c6f3cf1600b601007d737aea086 (diff) |
relaySession exception handler.
Diffstat (limited to 'dht')
-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) |