hannah/src/Main.hs

module Main where

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

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

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