module Main where import Control.Concurrent (threadDelay) import Options.Applicative import System.IO -- internal imports import Client.Communication import Client.Types main :: IO () main = do putStrLn "Hello, Arena!" (Options socketLocation) <- execParser opts putStrLn $ "connecting to Socket " <> socketLocation handle <- connectSocket socketLocation hPutStrLn handle "meow!" hFlush handle threadDelay $ 5 * 10 ^ 6 hPutStrLn handle "Goodbye!" hFlush handle where opts = info (options <**> helper) ( fullDesc <> progDesc "Run the \"wizard-wipeout\" Server." <> header "wizard-wipeout - Last Mage standing" )