# HG changeset patch
# User unc0rr
# Date 1231969259 0
# Node ID 6f6f14a3e0ea1649a87a9ac262b9d92f29c17249
# Parent  d5e131005516e621821dba44b354c12079f6f225
Same for lobby

diff -r d5e131005516 -r 6f6f14a3e0ea netserver/HWProto.hs
--- a/netserver/HWProto.hs	Wed Jan 14 21:39:37 2009 +0000
+++ b/netserver/HWProto.hs	Wed Jan 14 21:40:59 2009 +0000
@@ -181,9 +181,15 @@
 	if (null $ nick client) || (protocol client == 0) then
 		[]
 	else
-		(answerClientOnly $ ["LOBBY:JOINED"] ++ (filter (\n -> (not (null n)) && n /= nick client) $ map nick $ clients)) ++
+		answerLobbyNicks ++
 		(answerAll ["LOBBY:JOINED", nick client]) ++
 		(answerServerMessage client clients)
+	where
+		lobbyNicks = filter (\n -> (not (null n)) && n /= nick client) $ map nick $ clients
+		answerLobbyNicks = if not $ null lobbyNicks then
+					answerClientOnly $ ["LOBBY:JOINED"] ++ lobbyNicks
+				else
+					[]
 
 handleCmd_noInfo :: CmdHandler
 handleCmd_noInfo client clients _ ["NICK", newNick] =