diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r-- | dht/src/Network/Tox.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs index 1a3bee79..a7e5d2c2 100644 --- a/dht/src/Network/Tox.hs +++ b/dht/src/Network/Tox.hs | |||
@@ -266,11 +266,11 @@ newTox :: TVar Onion.AnnouncedKeys -- ^ Store of announced keys we are a rende | |||
266 | newTox keydb bindspecs onsess crypto usetcp = do | 266 | newTox keydb bindspecs onsess crypto usetcp = do |
267 | msock <- Bind.udpTransport' True bindspecs | 267 | msock <- Bind.udpTransport' True bindspecs |
268 | let failedBind = do | 268 | let failedBind = do |
269 | dput XDHT $ "tox udp bind error: " ++ show bindspecs | 269 | dput XMisc $ "tox udp bind error: " ++ show bindspecs |
270 | throwIO $ userError "Tox UDP listen port?" | 270 | throwIO $ userError "Tox UDP listen port?" |
271 | fromMaybe failedBind $ msock <&> \(udp,sock) -> do | 271 | fromMaybe failedBind $ msock <&> \(udp,sock) -> do |
272 | addr <- getSocketName sock | 272 | addr <- getSocketName sock |
273 | dput XOnion $ "UDP bind address: " ++ show addr | 273 | dput XMisc $ "UDP bind address: " ++ show addr |
274 | (relay,sendTCP) <- | 274 | (relay,sendTCP) <- |
275 | if usetcp then do | 275 | if usetcp then do |
276 | fmap (Just *** Just) $ tcpRelay (fst crypto) addr $ \a x -> do | 276 | fmap (Just *** Just) $ tcpRelay (fst crypto) addr $ \a x -> do |