diff -r 28c670367e6c -r cdcdf37e5532 gameServer/Actions.hs --- 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