1 files changed, 16 insertions, 0 deletions

diff --git a/examples/avahi.hs b/examples/avahi.hs
new file mode 100644
index 00000000..e5567875
--- /dev/null
+++ b/examples/avahi.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+
+import           BasePrelude
+import           Network.Tox.Avahi
+
+exampleNodeId :: NodeId
+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) Nothing
+  void $ forkIO $ queryToxService (curry print)
+  void $ getLine