equal
deleted
inserted
replaced
124 --clientByHandle chandle clients = find (\c -> handle c == chandle) clients |
124 --clientByHandle chandle clients = find (\c -> handle c == chandle) clients |
125 |
125 |
126 sameRoom :: HandlesSelector |
126 sameRoom :: HandlesSelector |
127 sameRoom client clients rooms = filter (\ci -> room ci == room client) clients |
127 sameRoom client clients rooms = filter (\ci -> room ci == room client) clients |
128 |
128 |
|
129 sameProtoLobbyClients :: HandlesSelector |
|
130 sameProtoLobbyClients client clients rooms = filter (\ci -> room ci == [] && protocol ci == protocol client) clients |
|
131 |
129 noRoomSameProto :: HandlesSelector |
132 noRoomSameProto :: HandlesSelector |
130 noRoomSameProto client clients _ = filter (null . room) $ filter (\ci -> protocol client == protocol ci) clients |
133 noRoomSameProto client clients _ = filter (null . room) $ filter (\ci -> protocol client == protocol ci) clients |
131 |
134 |
132 othersInRoom :: HandlesSelector |
135 othersInRoom :: HandlesSelector |
133 othersInRoom client clients rooms = filter (client /=) $ filter (\ci -> room ci == room client) clients |
136 othersInRoom client clients rooms = filter (client /=) $ filter (\ci -> room ci == room client) clients |