Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HandlerUtils.hs
changeset 3542 f216b24aeb7f
parent 3501 a3159a410e5c
child 3543 d84a93b985c1 
--- a/gameServer/HandlerUtils.hs	Wed Jun 23 22:13:12 2010 +0400
+++ b/gameServer/HandlerUtils.hs	Wed Jun 23 22:17:27 2010 +0400
@@ -19,7 +19,7 @@
 roomOthersChans = do
     (ci, rnc) <- ask
     let ri = clientRoom rnc ci
-    return $ map (sendChan . client rnc) (roomClients rnc ri)
+    return $ map (sendChan . client rnc) $ filter (/= ci) (roomClients rnc ri)
 
 thisClientChans :: Reader (ClientIndex, IRnC) [ClientChan]
 thisClientChans = do
hedgewars