From 11987749fc6e6d3e53ea737d46d5ab13a16faeb8 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sat, 28 Sep 2019 13:43:29 -0400 Subject: Factor out some new libraries word64-map: Data.Word64Map network-addr: Network.Address tox-crypto: Crypto.Tox lifted-concurrent: Control.Concurrent.Lifted.Instrument Control.Concurrent.Async.Lifted.Instrument psq-wrap: Data.Wrapper.PSQInt Data.Wrapper.PSQ minmax-psq: Data.MinMaxPSQ tasks: Control.Concurrent.Tasks kad: Network.Kademlia Network.Kademlia.Bootstrap Network.Kademlia.Routing Network.Kademlia.CommonAPI Network.Kademlia.Persistence Network.Kademlia.Search --- examples/avahi.hs | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100644 examples/avahi.hs (limited to 'examples/avahi.hs') diff --git a/examples/avahi.hs b/examples/avahi.hs deleted file mode 100644 index e5567875..00000000 --- a/examples/avahi.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# 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 -- cgit v1.2.3