| changeset 1598 | c853e02ed663 |
| parent 1591 | 1db9b654f880 |
| child 1617 | 30170c63a9dd |
| 1597:24f2f9fa0160 | 1598:c853e02ed663 |
|---|---|
21 nick :: String, |
21 nick :: String, |
22 protocol :: Word16, |
22 protocol :: Word16, |
23 room :: String, |
23 room :: String, |
24 isMaster :: Bool, |
24 isMaster :: Bool, |
25 isReady :: Bool, |
25 isReady :: Bool, |
26 forceQuit :: Bool |
26 forceQuit :: Bool, |
27 partRoom :: Bool |
|
27 } |
28 } |
28 |
29 |
29 instance Eq ClientInfo where |
30 instance Eq ClientInfo where |
30 a1 == a2 = handle a1 == handle a2 |
31 a1 == a2 = handle a1 == handle a2 |
31 |
32 |