--- 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]