--- a/gameServer/Actions.hs	Sun Jun 27 21:06:41 2010 +0400
+++ b/gameServer/Actions.hs	Sun Jun 27 21:27:26 2010 +0400
@@ -150,7 +150,12 @@
     rnc <- gets roomsClients
     liftIO $ modifyClient rnc f ci
     return ()
-    
+
+processAction (ModifyClient2 ci f) = do
+    rnc <- gets roomsClients
+    liftIO $ modifyClient rnc f ci
+    return ()
+
 
 processAction (ModifyRoom f) = do
     rnc <- gets roomsClients