# HG changeset patch
# User unc0rr
# Date 1277317047 -14400
# Node ID f216b24aeb7f21c2ae0a4bd66dd69386a31ad2b6
# Parent  b602a57ba0fb586a2c785d445e2b2a1587b3f115
 - Fix a function
 - Add forgotten file to CMakeLists

diff -r b602a57ba0fb -r f216b24aeb7f gameServer/CMakeLists.txt
--- 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
     )
 
diff -r b602a57ba0fb -r f216b24aeb7f gameServer/HandlerUtils.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