16 lines
360 B
Haskell
16 lines
360 B
Haskell
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
|