equal
deleted
inserted
replaced
346 KickRoomClient banId |
346 KickRoomClient banId |
347 ] |
347 ] |
348 else |
348 else |
349 return [] |
349 return [] |
350 |
350 |
|
351 handleCmd_inRoom ("RND":rs) = do |
|
352 n <- clientNick |
|
353 s <- roomClientsChans |
|
354 return [AnswerClients s ["CHAT", n, B.unwords $ "/rnd" : rs], Random s rs] |
351 |
355 |
352 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
356 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
353 |
357 |
354 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"] |
358 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"] |
355 |
359 |