diff -r 9c2737ba87ea -r 7e4f7ed41790 gameServer/ServerState.hs
--- 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
     }