diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/Tox.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index a9b4f2e6..5bd23da8 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -493,8 +493,10 @@ forkTox tox = do | |||
493 | -- TODO: Don't export this. | 493 | -- TODO: Don't export this. |
494 | announceToLan :: Socket -> NodeId -> IO () | 494 | announceToLan :: Socket -> NodeId -> IO () |
495 | announceToLan sock nid = do | 495 | announceToLan sock nid = do |
496 | addrs <- broadcastAddrs | ||
497 | forM_ addrs $ \addr -> do | ||
496 | (broadcast_info:_) <- getAddrInfo (Just defaultHints { addrFlags = [AI_NUMERICHOST], addrSocketType = Datagram }) | 498 | (broadcast_info:_) <- getAddrInfo (Just defaultHints { addrFlags = [AI_NUMERICHOST], addrSocketType = Datagram }) |
497 | (Just "192.168.1.255") -- TODO: Detect broadcast address. | 499 | (Just addr) -- TODO: Detect broadcast address. |
498 | (Just "33445") | 500 | (Just "33445") |
499 | let broadcast = addrAddress broadcast_info | 501 | let broadcast = addrAddress broadcast_info |
500 | bs = S.runPut $ DHT.putMessage (DHT.DHTLanDiscovery nid) | 502 | bs = S.runPut $ DHT.putMessage (DHT.DHTLanDiscovery nid) |