equal
deleted
inserted
replaced
437 [Warning $ loc "You're not the room master or a server admin!"] |
437 [Warning $ loc "You're not the room master or a server admin!"] |
438 else |
438 else |
439 [ModifyRoom (\r -> r{greeting = msg}), |
439 [ModifyRoom (\r -> r{greeting = msg}), |
440 AnswerClients [sendChan cl] |
440 AnswerClients [sendChan cl] |
441 ["CHAT", nickServer, |
441 ["CHAT", nickServer, |
442 if msg == "" then |
442 if B.null msg then |
443 loc "Greeting message cleared." |
443 loc "Greeting message cleared." |
444 else |
444 else |
445 loc "Greeting message set." |
445 loc "Greeting message set." |
446 ]] |
446 ]] |
447 |
447 |