netserver/Miscutils.hs
changeset 1618 2b9cadc232ab
parent 1617 30170c63a9dd
child 1646 19b3784ac9d2
--- a/netserver/Miscutils.hs	Thu Jan 08 21:04:36 2009 +0000
+++ b/netserver/Miscutils.hs	Thu Jan 08 22:01:09 2009 +0000
@@ -130,6 +130,9 @@
 sameProtoLobbyClients :: HandlesSelector
 sameProtoLobbyClients client clients rooms = filter (\ci -> room ci == [] && protocol ci == protocol client) clients
 
+otherLobbyClients :: HandlesSelector
+otherLobbyClients client clients rooms = filter (\ci -> room ci == []) clients
+
 noRoomSameProto :: HandlesSelector
 noRoomSameProto client clients _ = filter (null . room) $ filter (\ci -> protocol client == protocol ci) clients