--- a/gameServer/CoreTypes.hs	Sun Feb 17 00:25:53 2013 +0400
+++ b/gameServer/CoreTypes.hs	Mon Feb 18 00:22:13 2013 +0400
@@ -20,7 +20,7 @@
 data CheckInfo =
     CheckInfo
     {
-        recordFileName :: B.ByteString,
+        recordFileName :: String,
         recordTeams :: [TeamInfo]
     }