summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r--dht/src/Network/Tox.hs4
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
266newTox keydb bindspecs onsess crypto usetcp = do 266newTox 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