Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Fix a function
authorunc0rr
Wed, 23 Jun 2010 22:17:27 +0400
changeset 3542 f216b24aeb7f
parent 3540 b602a57ba0fb
child 3543 d84a93b985c1
- Fix a function - Add forgotten file to CMakeLists
gameServer/CMakeLists.txt file | annotate | diff | comparison | revisions
gameServer/HandlerUtils.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/CMakeLists.txt	Wed Jun 23 22:13:12 2010 +0400
+++ b/gameServer/CMakeLists.txt	Wed Jun 23 22:17:27 2010 +0400
@@ -14,13 +14,14 @@
     HWProtoInRoomState.hs
     HWProtoLobbyState.hs
     HWProtoNEState.hs
+    HandlerUtils.hs
     NetRoutines.hs
     Opts.hs
+    RoomsAndClients.hs
     ServerCore.hs
-    Utils.hs
-    RoomsAndClients.hs
     ServerState.hs
     Store.hs
+    Utils.hs
     hedgewars-server.hs
     )
 
--- 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