1 files changed, 4 insertions, 2 deletions

diff --git a/avahi.hs b/avahi.hs
index aeb8138f..e5567875 100644
--- a/avahi.hs
+++ b/avahi.hs
@@ -9,6 +9,8 @@ exampleNodeId = read $ replicate 43 'a'
 main :: IO ()
 main = do
   [hostname, port, nodeId] <- getArgs
-  void $ forkIO $ announceToxServiceWithHostname hostname (fromMaybe 54321 $ readMaybe port) (fromMaybe exampleNodeId $ readMaybe nodeId)
-  void $ forkIO $ queryToxService print
+  void $ forkIO $ announceToxServiceWithHostname
+    hostname (fromMaybe 54321 $ readMaybe port)
+    (fromMaybe exampleNodeId $ readMaybe nodeId) Nothing
+  void $ forkIO $ queryToxService (curry print)
   void $ getLine