equal
deleted
inserted
replaced
53 handleCmd_inRoom ["CHAT", msg] = do |
53 handleCmd_inRoom ["CHAT", msg] = do |
54 n <- clientNick |
54 n <- clientNick |
55 s <- roomOthersChans |
55 s <- roomOthersChans |
56 return [AnswerClients s ["CHAT", n, msg]] |
56 return [AnswerClients s ["CHAT", n, msg]] |
57 |
57 |
58 handleCmd_inRoom ["PART"] = return [MoveToLobby "part", RegisterEvent RoomJoin] |
58 handleCmd_inRoom ["PART"] = return [MoveToLobby "part"] |
59 handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg, RegisterEvent RoomJoin] |
59 handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg] |
60 |
60 |
61 |
61 |
62 handleCmd_inRoom ("CFG" : paramName : paramStrs) |
62 handleCmd_inRoom ("CFG" : paramName : paramStrs) |
63 | null paramStrs = return [ProtocolError $ loc "Empty config entry"] |
63 | null paramStrs = return [ProtocolError $ loc "Empty config entry"] |
64 | otherwise = do |
64 | otherwise = do |