integrate avahi publish & discovery

1 files changed, 7 insertions, 6 deletions

diff --git a/src/Network/Tox/Avahi.hs b/src/Network/Tox/Avahi.hs
index ba5138bc..ed52de74 100644
--- a/src/Network/Tox/Avahi.hs
+++ b/src/Network/Tox/Avahi.hs
@@ -5,12 +5,11 @@ module Network.Tox.Avahi
   , NodeInfo(..)
   , NodeId(..)
   ) where
+
 import           Data.Foldable
-import           GHC.Conc.Sync
 import           GHC.Word           (Word16)
 import           Network.Address
 import           Network.Avahi
-import           Network.Avahi
 import           Network.Socket
 import           Network.Tox.NodeId
 import           Text.Read
@@ -37,12 +36,14 @@ toxService hostname (fromIntegral -> port) (show -> extra) =
     serviceText     = extra
   }
 
-announceToxService :: String -> PortNumber -> NodeId -> IO ThreadId
-announceToxService = ((.).(.).(.)) (forkIO . announce) toxService
+announceToxServiceWithHostname :: String -> PortNumber -> NodeId -> IO ()
+announceToxServiceWithHostname  = ((.).(.).(.)) announce toxService
+
+announceToxService :: PortNumber -> NodeId -> IO ()
+announceToxService = announceToxServiceWithHostname ""
 
-queryToxService :: (NodeInfo -> IO ()) -> IO ThreadId
+queryToxService :: (NodeInfo -> IO ()) -> IO ()
 queryToxService cb =
-  forkIO $
   browse $
   BrowseQuery
   { lookupProtocol    = PROTO_UNSPEC