diff --git a/src/Automaton.hs b/src/Automaton.hs index cd00b47..bfdd454 100644 --- a/src/Automaton.hs +++ b/src/Automaton.hs @@ -38,12 +38,6 @@ receive (Message.Tadaima {Message.myID, Message.name}) Nothing = do receive (Message.Tadaima {}) (Just _) = sendError "You're already logged in" -{- -receive logOut@Message.LogOut (Just _) = do - asks App.sessionID >>= App.update . Server.logOut - Messaging.relay logOut Messaging.broadcast --} - receive invitation@(Message.Invitation {Message.to}) (Just _) = Messaging.relay invitation (Messaging.sendTo [to]) @@ -52,7 +46,7 @@ receive answer@(Message.Answer {Message.accept, Message.to}) (Just player) = then do publicGames <- Game.new (Player.playerID player, to) Messaging.relay answer (Messaging.sendTo [to]) - Messaging.notifyPlayers publicGames + Messaging.notifyPlayers publicGames [] else Messaging.relay answer (Messaging.sendTo [to]) receive (Message.Play {Message.move, Message.onGame}) (Just player) = do