equal
deleted
inserted
replaced
217 answerClientOnly ("GAMEMSG" : "DGUkc3BlY3RhdGUgMQ==" : roundMsgs clRoom) |
217 answerClientOnly ("GAMEMSG" : "DGUkc3BlY3RhdGUgMQ==" : roundMsgs clRoom) |
218 |
218 |
219 handleCmd_noRoom client clients rooms ["JOIN", roomName] = |
219 handleCmd_noRoom client clients rooms ["JOIN", roomName] = |
220 handleCmd_noRoom client clients rooms ["JOIN", roomName, ""] |
220 handleCmd_noRoom client clients rooms ["JOIN", roomName, ""] |
221 |
221 |
|
222 handleCmd_noRoom client _ _ ["CHAT_STRING", msg] = |
|
223 (noChangeClients, noChangeRooms, answerChatString (nick client) msg) |
|
224 |
222 handleCmd_noRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |
225 handleCmd_noRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd) |
223 |
226 |
224 |
227 |
225 -- 'inRoom' clients state command handlers |
228 -- 'inRoom' clients state command handlers |
226 handleCmd_inRoom :: CmdHandler |
229 handleCmd_inRoom :: CmdHandler |