module Main where

import Automaton (start)
import Control.Monad.Reader (runReaderT)
import Control.Monad.State (runStateT)
import Config (host, port, path)
import Network.WebSockets (ClientApp)
import Wuss (runSecureClient)

bot :: ClientApp ()
bot connection = runReaderT Automaton.start connection

main :: IO ()
main =
  runSecureClient host port path bot