equal
deleted
inserted
replaced
334 handleCmd_inRoom ["TEAMCHAT", msg] = do |
334 handleCmd_inRoom ["TEAMCHAT", msg] = do |
335 cl <- thisClient |
335 cl <- thisClient |
336 chans <- roomSameClanChans |
336 chans <- roomSameClanChans |
337 return [AnswerClients chans ["EM", engineMsg cl]] |
337 return [AnswerClients chans ["EM", engineMsg cl]] |
338 where |
338 where |
339 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "(team): ", msg, "\x20\x20"] |
339 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, " (team): ", msg, "\x20\x20"] |
340 |
340 |
341 |
341 |
342 handleCmd_inRoom ["BAN", banNick] = do |
342 handleCmd_inRoom ["BAN", banNick] = do |
343 (thisClientId, rnc) <- ask |
343 (thisClientId, rnc) <- ask |
344 maybeClientId <- clientByNick banNick |
344 maybeClientId <- clientByNick banNick |