equal
deleted
inserted
replaced
140 ) |
140 ) |
141 |
141 |
142 data AccountInfo = |
142 data AccountInfo = |
143 HasAccount String Bool |
143 HasAccount String Bool |
144 | Guest |
144 | Guest |
|
145 | Admin |
145 |
146 |
146 data CoreMessage = |
147 data CoreMessage = |
147 Accept ClientInfo |
148 Accept ClientInfo |
148 | ClientMessage (Int, [String]) |
149 | ClientMessage (Int, [String]) |
149 | ClientAccountInfo Int AccountInfo |
150 | ClientAccountInfo Int AccountInfo |
150 -- | CoreMessage String |
151 -- | CoreMessage String |
151 -- | TimerTick |
152 -- | TimerTick |
152 |
153 |
153 data DBQuery = |
154 data DBQuery = |
154 CheckAccount Int String |
155 CheckAccount ClientInfo |
155 |
156 |
156 |
157 |
157 type Clients = IntMap.IntMap ClientInfo |
158 type Clients = IntMap.IntMap ClientInfo |
158 type Rooms = IntMap.IntMap RoomInfo |
159 type Rooms = IntMap.IntMap RoomInfo |
159 |
160 |