equal
deleted
inserted
replaced
13 import Actions |
13 import Actions |
14 import Utils |
14 import Utils |
15 import HandlerUtils |
15 import HandlerUtils |
16 import RoomsAndClients |
16 import RoomsAndClients |
17 |
17 |
18 handleCmd_inRoom :: CmdHandler |
18 handleCmd_inRoom :: CmdHandler c |
19 |
19 |
20 handleCmd_inRoom ["CHAT", msg] = do |
20 handleCmd_inRoom ["CHAT", msg] = do |
21 n <- clientNick |
21 n <- clientNick |
22 s <- roomOthersChans |
22 s <- roomOthersChans |
23 return [AnswerClients s ["CHAT", n, msg]] |
23 return [AnswerClients s ["CHAT", n, msg]] |