equal
deleted
inserted
replaced
14 |
14 |
15 handleCmd_inRoom :: CmdHandler |
15 handleCmd_inRoom :: CmdHandler |
16 |
16 |
17 handleCmd_inRoom clID clients _ ["CHAT", msg] = |
17 handleCmd_inRoom clID clients _ ["CHAT", msg] = |
18 [AnswerOthersInRoom ["CHAT", clientNick, msg]] |
18 [AnswerOthersInRoom ["CHAT", clientNick, msg]] |
|
19 where |
|
20 clientNick = nick $ clients IntMap.! clID |
|
21 |
|
22 |
|
23 handleCmd_inRoom clID clients _ ["TEAM_CHAT", msg] = |
|
24 [AnswerOthersInRoom ["TEAM_CHAT", clientNick, msg]] |
19 where |
25 where |
20 clientNick = nick $ clients IntMap.! clID |
26 clientNick = nick $ clients IntMap.! clID |
21 |
27 |
22 |
28 |
23 handleCmd_inRoom clID clients rooms ["PART"] = |
29 handleCmd_inRoom clID clients rooms ["PART"] = |