--- a/gameServer/CoreTypes.hs	Fri Feb 15 00:12:19 2013 +0400
+++ b/gameServer/CoreTypes.hs	Sat Feb 16 23:28:16 2013 +0400
@@ -17,6 +17,13 @@
 
 type ClientChan = Chan [B.ByteString]
 
+data CheckInfo =
+    CheckInfo
+    {
+        recordFileName :: B.ByteString,
+        recordTeams :: [TeamInfo]
+    }
+
 data ClientInfo =
     ClientInfo
     {
@@ -39,6 +46,7 @@
         isChecker :: Bool,
         isKickedFromServer :: Bool,
         clientClan :: !(Maybe B.ByteString),
+        checkInfo :: Maybe CheckInfo,
         teamsInGame :: Word
     }