equal
deleted
inserted
replaced
36 isReady :: !Bool, |
36 isReady :: !Bool, |
37 isInGame :: Bool, |
37 isInGame :: Bool, |
38 isAdministrator :: Bool, |
38 isAdministrator :: Bool, |
39 isChecker :: Bool, |
39 isChecker :: Bool, |
40 isKickedFromServer :: Bool, |
40 isKickedFromServer :: Bool, |
41 clientClan :: Maybe B.ByteString, |
41 clientClan :: !Maybe B.ByteString, |
42 teamsInGame :: Word |
42 teamsInGame :: Word |
43 } |
43 } |
44 |
44 |
45 instance Eq ClientInfo where |
45 instance Eq ClientInfo where |
46 (==) = (==) `on` clientSocket |
46 (==) = (==) `on` clientSocket |
64 hhnum :: Int, |
64 hhnum :: Int, |
65 hedgehogs :: [HedgehogInfo] |
65 hedgehogs :: [HedgehogInfo] |
66 } |
66 } |
67 deriving (Show, Read) |
67 deriving (Show, Read) |
68 |
68 |
|
69 instance Eq TeamInfo where |
|
70 (==) = (==) `on` teamname |
|
71 |
69 data GameInfo = |
72 data GameInfo = |
70 GameInfo |
73 GameInfo |
71 { |
74 { |
72 roundMsgs :: [B.ByteString], |
75 roundMsgs :: [B.ByteString], |
73 leftTeams :: [B.ByteString], |
76 leftTeams :: [B.ByteString], |