equal
deleted
inserted
replaced
14 import Data.TConfig |
14 import Data.TConfig |
15 ----------------------- |
15 ----------------------- |
16 import RoomsAndClients |
16 import RoomsAndClients |
17 |
17 |
18 type ClientChan = Chan [B.ByteString] |
18 type ClientChan = Chan [B.ByteString] |
|
19 |
|
20 data CheckInfo = |
|
21 CheckInfo |
|
22 { |
|
23 recordFileName :: B.ByteString, |
|
24 recordTeams :: [TeamInfo] |
|
25 } |
19 |
26 |
20 data ClientInfo = |
27 data ClientInfo = |
21 ClientInfo |
28 ClientInfo |
22 { |
29 { |
23 clUID :: Unique, |
30 clUID :: Unique, |
37 isInGame :: Bool, |
44 isInGame :: Bool, |
38 isAdministrator :: Bool, |
45 isAdministrator :: Bool, |
39 isChecker :: Bool, |
46 isChecker :: Bool, |
40 isKickedFromServer :: Bool, |
47 isKickedFromServer :: Bool, |
41 clientClan :: !(Maybe B.ByteString), |
48 clientClan :: !(Maybe B.ByteString), |
|
49 checkInfo :: Maybe CheckInfo, |
42 teamsInGame :: Word |
50 teamsInGame :: Word |
43 } |
51 } |
44 |
52 |
45 instance Eq ClientInfo where |
53 instance Eq ClientInfo where |
46 (==) = (==) `on` clientSocket |
54 (==) = (==) `on` clientSocket |