changeset 1461 | 87e5a6c3882c |
parent 1411 | df78c9571bc7 |
child 1466 | c68b0a0969d3 |
--- a/netserver/Miscutils.hs Sun Nov 02 11:46:58 2008 +0000 +++ b/netserver/Miscutils.hs Sun Nov 02 20:41:02 2008 +0000 @@ -90,6 +90,9 @@ fromRoom :: String -> HandlesSelector fromRoom roomName _ clients _ = map handle $ filter (\ci -> room ci == roomName) clients +allClients :: HandlesSelector +allClients _ clients _ = map handle $ clients + clientOnly :: HandlesSelector clientOnly client _ _ = [handle client]