gameServer/HWProtoLobbyState.hs
changeset 11468 fe46826de291
parent 11056 62cc7f67105f
child 11469 a9957113404a
--- a/gameServer/HWProtoLobbyState.hs	Tue Dec 22 11:18:40 2015 -0500
+++ b/gameServer/HWProtoLobbyState.hs	Mon Dec 28 08:43:38 2015 +0300
@@ -34,12 +34,7 @@
 handleCmd_lobby :: CmdHandler
 
 
-handleCmd_lobby ["LIST"] = do
-    (ci, irnc) <- ask
-    let cl = irnc `client` ci
-    rooms <- allRoomInfos
-    let roomsInfoList = concatMap (\r -> roomInfo (clientProto cl) (maybeNick . liftM (client irnc) $ masterID r) r) . filter (\r -> (roomProto r == clientProto cl))
-    return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)]
+handleCmd_lobby ["LIST"] = return []
 
 handleCmd_lobby ["CHAT", msg] = do
     n <- clientNick