gameServer/Actions.hs
changeset 4998 cdcdf37e5532
parent 4991 90d1fb9fc2e1
child 4999 a3a09b107652
--- a/gameServer/Actions.hs	Wed Mar 09 22:39:35 2011 +0100
+++ b/gameServer/Actions.hs	Thu Mar 10 22:28:40 2011 +0300
@@ -138,6 +138,8 @@
     put $! s{removedClients = ci `Set.insert` removedClients s}
 
 processAction (DeleteClient ci) = do
+    io $ debugM "Clients"  $ "DeleteClient: " ++ show ci
+
     rnc <- gets roomsClients
     io $ removeClient rnc ci