diff -r 54e4b03e6ba6 -r 87e5a6c3882c netserver/Miscutils.hs --- 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]