diff --git a/src/Automaton.hs b/src/Automaton.hs index 3a38516..7ae441e 100644 --- a/src/Automaton.hs +++ b/src/Automaton.hs @@ -50,7 +50,7 @@ edges (Session.Answering to) message@(Message.Answer {Message.accept}) = do game <- Server.get gameKey <$> App.server current <- App.current forM_ [(to, session), (key, current)] $ \(k, s) -> - Message.sendTo [(k, s)] $ Message.NewGame $ Game.export k game + Message.sendTo [(k, s)] $ Message.NewGame {Message.game = Game.export k game} return $ Session.Playing gameKey else do Message.broadcast $ Message.update {Message.alone = [key, to]} diff --git a/src/Message.hs b/src/Message.hs index b99f69e..fef62e1 100644 --- a/src/Message.hs +++ b/src/Message.hs @@ -46,7 +46,7 @@ data T = Relay {from :: Player.Key, message :: FromClient} | Welcome {room :: Server.T, key :: Player.Key} | Update {alone :: [Player.Key], paired :: [Player.Key]} - | NewGame Game.View + | NewGame {game :: Game.View} | Pong | Error {error :: String} deriving (Generic) diff --git a/www/index.html b/www/index.html index ced10e4..e5c11b3 100644 --- a/www/index.html +++ b/www/index.html @@ -4,11 +4,12 @@