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 @@ KoiKoi - - - + + + + @@ -32,7 +33,9 @@
+

River

+

Hand

diff --git a/www/main.js b/www/main.js index 85b5bde..5645660 100644 --- a/www/main.js +++ b/www/main.js @@ -6,6 +6,7 @@ window.addEventListener('load', function() { var session = Session({messaging: messaging}); var room = Room({dom: dom, messaging: messaging, session: session, sort: sort}); var login = Login({dom: dom, messaging: messaging, room: room, screen: screen, session: session}); + var game = Game({dom: dom, messaging: messaging, session: session}); messaging.start(); }); diff --git a/www/session.js b/www/session.js index 3cd1dcd..7549e9b 100644 --- a/www/session.js +++ b/www/session.js @@ -14,6 +14,7 @@ function Session(modules) { return { is: is, + getKey: getKey, loggedIn: loggedIn }; @@ -21,6 +22,10 @@ function Session(modules) { return key == sessionKey; } + function getKey() { + return key; + } + function loggedIn() { return name != undefined; }