equal
deleted
inserted
replaced
173 | ClientMessage (ClientIndex, [B.ByteString]) |
173 | ClientMessage (ClientIndex, [B.ByteString]) |
174 | ClientAccountInfo (ClientIndex, AccountInfo) |
174 | ClientAccountInfo (ClientIndex, AccountInfo) |
175 | TimerAction Int |
175 | TimerAction Int |
176 | Remove ClientIndex |
176 | Remove ClientIndex |
177 |
177 |
|
178 instance Show CoreMessage where |
|
179 show (Accept _) = "Accept" |
|
180 show (ClientMessage _) = "ClientMessage" |
|
181 show (ClientAccountInfo _) = "ClientAccountInfo" |
|
182 show (TimerAction _) = "TimerAction" |
|
183 show (Remove _) = "Remove" |
|
184 |
178 type MRnC = MRoomsAndClients RoomInfo ClientInfo |
185 type MRnC = MRoomsAndClients RoomInfo ClientInfo |
179 type IRnC = IRoomsAndClients RoomInfo ClientInfo |
186 type IRnC = IRoomsAndClients RoomInfo ClientInfo |
180 |
187 |