equal
deleted
inserted
replaced
25 return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)] |
25 return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)] |
26 |
26 |
27 handleCmd_lobby ["CHAT", msg] = do |
27 handleCmd_lobby ["CHAT", msg] = do |
28 n <- clientNick |
28 n <- clientNick |
29 s <- roomOthersChans |
29 s <- roomOthersChans |
30 return [AnswerClients s ["CHAT", n, msg]] |
30 return [AnswerClients s ["CHAT", n, msg], RegisterEvent LobbyChatMessage] |
31 |
31 |
32 handleCmd_lobby ["CREATE_ROOM", rName, roomPassword] |
32 handleCmd_lobby ["CREATE_ROOM", rName, roomPassword] |
33 | illegalName rName = return [Warning $ loc "Illegal room name"] |
33 | illegalName rName = return [Warning $ loc "Illegal room name"] |
34 | otherwise = do |
34 | otherwise = do |
35 rs <- allRoomInfos |
35 rs <- allRoomInfos |