equal
deleted
inserted
replaced
74 h "GREETING" msg = handleCmd ["GREETING", msg] |
74 h "GREETING" msg = handleCmd ["GREETING", msg] |
75 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |
75 h "CALLVOTE" msg | B.null msg = handleCmd ["CALLVOTE"] |
76 | otherwise = let (c, p) = extractParameters msg in |
76 | otherwise = let (c, p) = extractParameters msg in |
77 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
77 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
78 h "VOTE" msg = handleCmd ["VOTE", upperCase msg] |
78 h "VOTE" msg = handleCmd ["VOTE", upperCase msg] |
|
79 h "FORCE" msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
79 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]] |
80 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]] |
80 |
81 |
81 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
82 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
82 |
83 |
83 |
84 |