changeset 8479 | 8d71109b04d2 |
parent 8433 | 3b318a130a62 |
child 8507 | f4475782cf45 |
8478:d12531f09d59 | 8479:8d71109b04d2 |
---|---|
66 } |
66 } |
67 deriving (Show, Read) |
67 deriving (Show, Read) |
68 |
68 |
69 instance Eq TeamInfo where |
69 instance Eq TeamInfo where |
70 (==) = (==) `on` teamname |
70 (==) = (==) `on` teamname |
71 |
71 |
72 data GameInfo = |
72 data GameInfo = |
73 GameInfo |
73 GameInfo |
74 { |
74 { |
75 roundMsgs :: [B.ByteString], |
75 roundMsgs :: [B.ByteString], |
76 leftTeams :: [B.ByteString], |
76 leftTeams :: [B.ByteString], |