equal
deleted
inserted
replaced
158 |
158 |
159 data CoreMessage = |
159 data CoreMessage = |
160 Accept ClientInfo |
160 Accept ClientInfo |
161 | ClientMessage (Int, [String]) |
161 | ClientMessage (Int, [String]) |
162 | ClientAccountInfo (Int, AccountInfo) |
162 | ClientAccountInfo (Int, AccountInfo) |
163 | TimerAction |
163 | TimerAction Int |
164 |
164 |
165 type Clients = IntMap.IntMap ClientInfo |
165 type Clients = IntMap.IntMap ClientInfo |
166 type Rooms = IntMap.IntMap RoomInfo |
166 type Rooms = IntMap.IntMap RoomInfo |
167 |
167 |
168 --type ClientsTransform = [ClientInfo] -> [ClientInfo] |
168 --type ClientsTransform = [ClientInfo] -> [ClientInfo] |