equal
deleted
inserted
replaced
79 | otherwise = handleCmd ["QUIT"] |
79 | otherwise = handleCmd ["QUIT"] |
80 h "RND" p = handleCmd ("RND" : B.words p) |
80 h "RND" p = handleCmd ("RND" : B.words p) |
81 h "GLOBAL" p = serverAdminOnly $ do |
81 h "GLOBAL" p = serverAdminOnly $ do |
82 rnc <- liftM snd ask |
82 rnc <- liftM snd ask |
83 let chans = map (sendChan . client rnc) $ allClients rnc |
83 let chans = map (sendChan . client rnc) $ allClients rnc |
84 return [AnswerClients chans ["CHAT", "[global notice]", p]] |
84 -- parenthesis instead of square brackets used to avoid accidental translation by frontend |
|
85 return [AnswerClients chans ["CHAT", "(global notice)", p]] |
85 h "WATCH" f = return [QueryReplay f] |
86 h "WATCH" f = return [QueryReplay f] |
86 h "FIX" _ = handleCmd ["FIX"] |
87 h "FIX" _ = handleCmd ["FIX"] |
87 h "UNFIX" _ = handleCmd ["UNFIX"] |
88 h "UNFIX" _ = handleCmd ["UNFIX"] |
88 h "GREETING" msg | not $ B.null msg = handleCmd ["GREETING", msg] |
89 h "GREETING" msg | not $ B.null msg = handleCmd ["GREETING", msg] |
89 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |
90 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |