equal
deleted
inserted
replaced
135 BanClient banNick : handleCmd_lobby clID clients rooms ["KICK", banNick] |
135 BanClient banNick : handleCmd_lobby clID clients rooms ["KICK", banNick] |
136 where |
136 where |
137 client = clients IntMap.! clID |
137 client = clients IntMap.! clID |
138 |
138 |
139 |
139 |
|
140 handleCmd_lobby clID clients rooms ["SET_SERVER_MESSAGE", newMessage] = |
|
141 if not $ isAdministrator client then |
|
142 [] |
|
143 else |
|
144 [ModifyServerInfo (\si -> si{serverMessage = newMessage})] |
|
145 where |
|
146 client = clients IntMap.! clID |
|
147 |
|
148 |
140 handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"] |
149 handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"] |