diff -r 30170c63a9dd -r 2b9cadc232ab netserver/Miscutils.hs --- 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