--- a/gameServer/ServerState.hs	Thu Sep 02 14:12:02 2010 +0200
+++ b/gameServer/ServerState.hs	Thu Sep 02 20:19:27 2010 +0400
@@ -15,10 +15,10 @@
 import CoreTypes
 
 data ServerState = ServerState {
-        clientIndex :: Maybe ClientIndex,
-        serverInfo :: ServerInfo,
-        removedClients :: Set.Set ClientIndex,
-        roomsClients :: MRnC
+        clientIndex :: !(Maybe ClientIndex),
+        serverInfo :: !ServerInfo,
+        removedClients :: !(Set.Set ClientIndex),
+        roomsClients :: !MRnC
     }