--- a/netserver/HWProto.hs Mon Jan 05 17:03:49 2009 +0000
+++ b/netserver/HWProto.hs Mon Jan 05 19:44:43 2009 +0000
@@ -61,10 +61,13 @@
else
answerOthersRoom ["LEFT", nick]
answerQuitLobby nick msg =
- if not $ null msg then
- answerAll ["LOBBY:LEFT", nick, msg]
+ if not $ null nick then
+ if not $ null msg then
+ answerAll ["LOBBY:LEFT", nick, msg]
else
- answerAll ["LOBBY:LEFT", nick]
+ answerAll ["LOBBY:LEFT", nick]
+ else
+ []
answerJoined nick = answerSameRoom ["JOINED", nick]
answerRunGame = answerSameRoom ["RUN_GAME"]