--- a/gameServer/CoreTypes.hs	Thu Aug 29 12:12:19 2013 +0400
+++ b/gameServer/CoreTypes.hs	Tue Sep 03 00:05:38 2013 +0400
@@ -76,6 +76,8 @@
     | CheckFailed B.ByteString
     | CheckSuccess [B.ByteString]
     | Random [ClientChan] [B.ByteString]
+    | QueryReplay B.ByteString
+    | ShowReplay B.ByteString
 
 type ClientChan = Chan [B.ByteString]
 
@@ -258,6 +260,7 @@
     HasAccount B.ByteString Bool Bool
     | Guest
     | Admin
+    | ReplayName B.ByteString
     deriving (Show, Read)
 
 data DBQuery =
@@ -265,6 +268,7 @@
     | ClearCache
     | SendStats Int Int
     | StoreAchievements B.ByteString [(B.ByteString, B.ByteString)] [B.ByteString]
+    | GetReplayName ClientIndex Int B.ByteString
     deriving (Show, Read)
 
 data CoreMessage =