--- 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 =