15 lines
335 B
Haskell
15 lines
335 B
Haskell
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
|