equal
deleted
inserted
replaced
240 [ProtocolError "Not room master"] |
240 [ProtocolError "Not room master"] |
241 else |
241 else |
242 [ModifyRoom (\r -> r{isRestrictedTeams = not $ isRestrictedTeams r})] |
242 [ModifyRoom (\r -> r{isRestrictedTeams = not $ isRestrictedTeams r})] |
243 |
243 |
244 |
244 |
|
245 handleCmd_inRoom ["ROOM_NAME", newName] = do |
|
246 cl <- thisClient |
|
247 rs <- allRoomInfos |
|
248 |
|
249 return $ |
|
250 if not $ isMaster cl then |
|
251 [ProtocolError "Not room master"] |
|
252 else |
|
253 if isJust $ find (\r -> newName == name r) rs then |
|
254 [Warning "Room with such name already exists"] |
|
255 else |
|
256 [ModifyRoom (\r -> r{name = newName})] |
|
257 |
|
258 |
245 handleCmd_inRoom ["KICK", kickNick] = do |
259 handleCmd_inRoom ["KICK", kickNick] = do |
246 (thisClientId, rnc) <- ask |
260 (thisClientId, rnc) <- ask |
247 maybeClientId <- clientByNick kickNick |
261 maybeClientId <- clientByNick kickNick |
248 master <- liftM isMaster thisClient |
262 master <- liftM isMaster thisClient |
249 let kickId = fromJust maybeClientId |
263 let kickId = fromJust maybeClientId |