equal
deleted
inserted
replaced
146 |
146 |
147 data AccountInfo = |
147 data AccountInfo = |
148 HasAccount String Bool |
148 HasAccount String Bool |
149 | Guest |
149 | Guest |
150 | Admin |
150 | Admin |
|
151 deriving (Show, Read) |
|
152 |
|
153 data DBQuery = |
|
154 CheckAccount Int String String |
|
155 deriving (Show, Read) |
151 |
156 |
152 data CoreMessage = |
157 data CoreMessage = |
153 Accept ClientInfo |
158 Accept ClientInfo |
154 | ClientMessage (Int, [String]) |
159 | ClientMessage (Int, [String]) |
155 | ClientAccountInfo Int AccountInfo |
160 | ClientAccountInfo (Int, AccountInfo) |
156 | TimerAction |
161 | TimerAction |
157 |
|
158 data DBQuery = |
|
159 CheckAccount ClientInfo |
|
160 |
|
161 |
162 |
162 type Clients = IntMap.IntMap ClientInfo |
163 type Clients = IntMap.IntMap ClientInfo |
163 type Rooms = IntMap.IntMap RoomInfo |
164 type Rooms = IntMap.IntMap RoomInfo |
164 |
165 |
165 --type ClientsTransform = [ClientInfo] -> [ClientInfo] |
166 --type ClientsTransform = [ClientInfo] -> [ClientInfo] |