--- a/gameServer/HandlerUtils.hs	Wed Jun 23 22:17:27 2010 +0400
+++ b/gameServer/HandlerUtils.hs	Wed Jun 23 22:21:13 2010 +0400
@@ -21,6 +21,12 @@
     let ri = clientRoom rnc ci
     return $ map (sendChan . client rnc) $ filter (/= ci) (roomClients rnc ri)
 
+roomClientsChans :: Reader (ClientIndex, IRnC) [ClientChan]
+roomClientsChans = do
+    (ci, rnc) <- ask
+    let ri = clientRoom rnc ci
+    return $ map (sendChan . client rnc) (roomClients rnc ri)
+
 thisClientChans :: Reader (ClientIndex, IRnC) [ClientChan]
 thisClientChans = do
     (ci, rnc) <- ask