From 7b0d87355864bd4486a76cfaaba1f437f3f7579f Mon Sep 17 00:00:00 2001 From: Tissevert Date: Mon, 13 Jan 2020 17:57:14 +0100 Subject: [PATCH] Remove commented-out dead code, fix bad call to notifyPlayers (that still takes the logs as second argument) --- src/Automaton.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) 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