equal
deleted
inserted
replaced
23 logonPassed :: Bool, |
23 logonPassed :: Bool, |
24 clientProto :: Word16, |
24 clientProto :: Word16, |
25 roomID :: Int, |
25 roomID :: Int, |
26 isMaster :: Bool, |
26 isMaster :: Bool, |
27 isReady :: Bool, |
27 isReady :: Bool, |
|
28 isAdministrator :: Bool, |
28 forceQuit :: Bool, |
29 forceQuit :: Bool, |
29 partRoom :: Bool |
30 partRoom :: Bool |
30 } |
31 } |
31 |
32 |
32 instance Show ClientInfo where |
33 instance Show ClientInfo where |
137 "" |
138 "" |
138 "" |
139 "" |
139 ) |
140 ) |
140 |
141 |
141 data AccountInfo = |
142 data AccountInfo = |
142 HasAccount String |
143 HasAccount String Bool |
143 | Guest |
144 | Guest |
144 |
145 |
145 data CoreMessage = |
146 data CoreMessage = |
146 Accept ClientInfo |
147 Accept ClientInfo |
147 | ClientMessage (Int, [String]) |
148 | ClientMessage (Int, [String]) |
149 -- | CoreMessage String |
150 -- | CoreMessage String |
150 -- | TimerTick |
151 -- | TimerTick |
151 |
152 |
152 data DBQuery = |
153 data DBQuery = |
153 CheckAccount Int String |
154 CheckAccount Int String |
154 | CheckPassword String |
|
155 |
155 |
156 |
156 |
157 type Clients = IntMap.IntMap ClientInfo |
157 type Clients = IntMap.IntMap ClientInfo |
158 type Rooms = IntMap.IntMap RoomInfo |
158 type Rooms = IntMap.IntMap RoomInfo |
159 |
159 |