equal
deleted
inserted
replaced
117 |
117 |
118 data CheckInfo = |
118 data CheckInfo = |
119 CheckInfo |
119 CheckInfo |
120 { |
120 { |
121 recordFileName :: String, |
121 recordFileName :: String, |
122 recordTeams :: [TeamInfo] |
122 recordTeams :: [TeamInfo], |
|
123 recordScript :: B.ByteString |
123 } |
124 } |
124 |
125 |
125 data ClientInfo = |
126 data ClientInfo = |
126 ClientInfo |
127 ClientInfo |
127 { |
128 { |
343 |
344 |
344 data DBQuery = |
345 data DBQuery = |
345 CheckAccount ClientIndex Int B.ByteString B.ByteString |
346 CheckAccount ClientIndex Int B.ByteString B.ByteString |
346 | ClearCache |
347 | ClearCache |
347 | SendStats Int Int |
348 | SendStats Int Int |
348 | StoreAchievements Word16 B.ByteString [(B.ByteString, B.ByteString)] [B.ByteString] |
349 | StoreAchievements Word16 B.ByteString [(B.ByteString, B.ByteString)] B.ByteString [B.ByteString] |
349 | GetReplayName ClientIndex Int B.ByteString |
350 | GetReplayName ClientIndex Int B.ByteString |
350 deriving (Show, Read) |
351 deriving (Show, Read) |
351 |
352 |
352 data CoreMessage = |
353 data CoreMessage = |
353 Accept ClientInfo |
354 Accept ClientInfo |