--- a/gameServer/Actions.hs Thu Feb 26 14:58:06 2009 +0000
+++ b/gameServer/Actions.hs Thu Feb 26 15:00:48 2009 +0000
@@ -119,7 +119,7 @@
else
[]
answerOthersQuit =
- if not $ Prelude.null clientNick then
+ if logonPassed client then
if not $ Prelude.null msg then
[AnswerAll ["LOBBY:LEFT", clientNick, msg]]
else
@@ -274,7 +274,7 @@
: answerLobbyNicks
-- ++ (answerServerMessage client clients)
where
- lobbyNicks = Prelude.filter (\n -> (not (Prelude.null n))) $ Prelude.map nick $ elems clients
+ lobbyNicks = Prelude.map nick $ Prelude.filter logonPassed $ elems clients
answerLobbyNicks = if not $ Prelude.null lobbyNicks then
[AnswerThisClient (["LOBBY:JOINED"] ++ lobbyNicks)]
else