--- a/gameServer/ServerState.hs	Sat Jun 26 16:58:19 2010 +0400
+++ b/gameServer/ServerState.hs	Sun Jun 27 21:06:41 2010 +0400
@@ -9,6 +9,7 @@
     ) where
 
 import Control.Monad.State
+import Data.Set as Set
 ----------------------
 import RoomsAndClients
 import CoreTypes
@@ -16,6 +17,7 @@
 data ServerState = ServerState {
         clientIndex :: Maybe ClientIndex,
         serverInfo :: ServerInfo,
+        removedClients :: Set.Set ClientIndex,
         roomsClients :: MRnC
     }