gameServer/CoreTypes.hs
changeset 9446 4fd5df03deb8
parent 9435 59eec19cb31a
child 9528 9351e96990ae
equal deleted inserted replaced
9444:30748b1d9ec7 9446:4fd5df03deb8
    74     | Stats
    74     | Stats
    75     | CheckRecord
    75     | CheckRecord
    76     | CheckFailed B.ByteString
    76     | CheckFailed B.ByteString
    77     | CheckSuccess [B.ByteString]
    77     | CheckSuccess [B.ByteString]
    78     | Random [ClientChan] [B.ByteString]
    78     | Random [ClientChan] [B.ByteString]
       
    79     | QueryReplay B.ByteString
       
    80     | ShowReplay B.ByteString
    79 
    81 
    80 type ClientChan = Chan [B.ByteString]
    82 type ClientChan = Chan [B.ByteString]
    81 
    83 
    82 data CheckInfo =
    84 data CheckInfo =
    83     CheckInfo
    85     CheckInfo
   256 
   258 
   257 data AccountInfo =
   259 data AccountInfo =
   258     HasAccount B.ByteString Bool Bool
   260     HasAccount B.ByteString Bool Bool
   259     | Guest
   261     | Guest
   260     | Admin
   262     | Admin
       
   263     | ReplayName B.ByteString
   261     deriving (Show, Read)
   264     deriving (Show, Read)
   262 
   265 
   263 data DBQuery =
   266 data DBQuery =
   264     CheckAccount ClientIndex Int B.ByteString B.ByteString
   267     CheckAccount ClientIndex Int B.ByteString B.ByteString
   265     | ClearCache
   268     | ClearCache
   266     | SendStats Int Int
   269     | SendStats Int Int
   267     | StoreAchievements B.ByteString [(B.ByteString, B.ByteString)] [B.ByteString]
   270     | StoreAchievements B.ByteString [(B.ByteString, B.ByteString)] [B.ByteString]
       
   271     | GetReplayName ClientIndex Int B.ByteString
   268     deriving (Show, Read)
   272     deriving (Show, Read)
   269 
   273 
   270 data CoreMessage =
   274 data CoreMessage =
   271     Accept ClientInfo
   275     Accept ClientInfo
   272     | ClientMessage (ClientIndex, [B.ByteString])
   276     | ClientMessage (ClientIndex, [B.ByteString])