equal
deleted
inserted
replaced
11 import Utils |
11 import Utils |
12 |
12 |
13 |
13 |
14 handleCmd_inRoom :: CmdHandler |
14 handleCmd_inRoom :: CmdHandler |
15 |
15 |
16 handleCmd_inRoom clID clients _ ["CHAT_STRING", msg] = |
16 handleCmd_inRoom clID clients _ ["CHAT", msg] = |
17 [AnswerOthersInRoom ["CHAT_STRING", clientNick, msg]] |
17 [AnswerOthersInRoom ["CHAT", clientNick, msg]] |
18 where |
18 where |
19 clientNick = nick $ clients IntMap.! clID |
19 clientNick = nick $ clients IntMap.! clID |
20 |
20 |
21 |
21 |
22 handleCmd_inRoom clID clients rooms ["PART"] = |
22 handleCmd_inRoom clID clients rooms ["PART"] = |