netserver/HWProto.hs
changeset 1581 2dfa315b4bb2
parent 1578 f02806f66e00
child 1582 262245ba6ea6
--- 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"]