supply hostname for dnssd display

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Network/Tox/Avahi.hs b/src/Network/Tox/Avahi.hs
index 559e5fd7..635ba656 100644
--- a/src/Network/Tox/Avahi.hs
+++ b/src/Network/Tox/Avahi.hs
@@ -11,6 +11,7 @@ import Control.Applicative
 import Data.Foldable
 import Network.Address
 import Network.Avahi
+import Network.BSD         (getHostName)
 import Network.Tox.NodeId
 import Text.Read
 
@@ -41,7 +42,9 @@ announceToxServiceWithHostname  = (boobs.boobs) announce toxService
   where boobs = ((.).(.))
 
 announceToxService :: PortNumber -> NodeId -> (Maybe NodeId) -> IO ()
-announceToxService = announceToxServiceWithHostname ""
+announceToxService a b c = do
+  h <- getHostName
+  announceToxServiceWithHostname h a b c
 
 queryToxService :: (NodeInfo -> Maybe NodeId -> IO ()) -> IO ()
 queryToxService cb =