{-# 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)
  void $ forkIO $ queryToxService print
  void $ getLine