160 deriving (Show, Read) |
160 deriving (Show, Read) |
161 |
161 |
162 data TeamInfo = |
162 data TeamInfo = |
163 TeamInfo |
163 TeamInfo |
164 { |
164 { |
165 teamownerId :: ClientIndex, |
|
166 teamowner :: B.ByteString, |
165 teamowner :: B.ByteString, |
167 teamname :: B.ByteString, |
166 teamname :: B.ByteString, |
168 teamcolor :: B.ByteString, |
167 teamcolor :: B.ByteString, |
169 teamgrave :: B.ByteString, |
168 teamgrave :: B.ByteString, |
170 teamfort :: B.ByteString, |
169 teamfort :: B.ByteString, |
171 teamvoicepack :: B.ByteString, |
170 teamvoicepack :: B.ByteString, |
172 teamflag :: B.ByteString, |
171 teamflag :: B.ByteString, |
|
172 isOwnerRegistered :: Bool, |
173 difficulty :: Int, |
173 difficulty :: Int, |
174 hhnum :: Int, |
174 hhnum :: Int, |
175 hedgehogs :: [HedgehogInfo] |
175 hedgehogs :: [HedgehogInfo] |
176 } |
176 } |
177 deriving (Show, Read) |
177 deriving (Show, Read) |