Game :: Config -> IO [ServerMessage]
joinGame config = connect config $ \conn -> do
    sendClientMessage config conn (JoinGame (gameId config) "BOT")
    JoinedAs _ _ <- getServerMessage config conn
    waitForStart config conn

wa
joinGame :: Config -> IO [ServerMessage]
joinGame config = connect config $ \conn -> do
    sendClientMessage config conn (JoinGame (gameId config) "BOT")
    JoinedAs _ _ <- getServerMessage config conn
    waitForStart config conn
joinGame config = connect config $ \conn -> do
    sendClientMessage config conn (JoinGame (gameId config) "BOT")
    JoinedAs _ _ <- getServerMessage config conn
    waitForStart config conn