equal
deleted
inserted
replaced
42 instance Eq ClientInfo where |
42 instance Eq ClientInfo where |
43 (==) = (==) `on` clientSocket |
43 (==) = (==) `on` clientSocket |
44 |
44 |
45 data HedgehogInfo = |
45 data HedgehogInfo = |
46 HedgehogInfo B.ByteString B.ByteString |
46 HedgehogInfo B.ByteString B.ByteString |
|
47 deriving (Show, Read) |
47 |
48 |
48 data TeamInfo = |
49 data TeamInfo = |
49 TeamInfo |
50 TeamInfo |
50 { |
51 { |
51 teamownerId :: ClientIndex, |
52 teamownerId :: ClientIndex, |
58 teamflag :: B.ByteString, |
59 teamflag :: B.ByteString, |
59 difficulty :: Int, |
60 difficulty :: Int, |
60 hhnum :: Int, |
61 hhnum :: Int, |
61 hedgehogs :: [HedgehogInfo] |
62 hedgehogs :: [HedgehogInfo] |
62 } |
63 } |
|
64 deriving (Show, Read) |
63 |
65 |
64 data RoomInfo = |
66 data RoomInfo = |
65 RoomInfo |
67 RoomInfo |
66 { |
68 { |
67 masterID :: ClientIndex, |
69 masterID :: ClientIndex, |