equal
deleted
inserted
replaced
74 s <- roomOthersChans |
74 s <- roomOthersChans |
75 return [AnswerClients s ["CHAT", n, msg]] |
75 return [AnswerClients s ["CHAT", n, msg]] |
76 |
76 |
77 -- Leave room normally |
77 -- Leave room normally |
78 handleCmd_inRoom ["PART"] = return [MoveToLobby ""] |
78 handleCmd_inRoom ["PART"] = return [MoveToLobby ""] |
79 -- Leave room with custom quit message by player |
79 handleCmd_inRoom ["PART", _] = return [MoveToLobby ""] |
80 -- "part: " is a special marker string to be detected by the frontend. Not translated for obvious reasons |
|
81 handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg] |
|
82 |
80 |
83 |
81 |
84 handleCmd_inRoom ("CFG" : paramName : paramStrs) |
82 handleCmd_inRoom ("CFG" : paramName : paramStrs) |
85 | null paramStrs = return [ProtocolError $ loc "Empty config entry."] |
83 | null paramStrs = return [ProtocolError $ loc "Empty config entry."] |
86 | otherwise = do |
84 | otherwise = do |