equal
deleted
inserted
replaced
423 |
423 |
424 handleCmd_inRoom ["VOTE", m] = do |
424 handleCmd_inRoom ["VOTE", m] = do |
425 cl <- thisClient |
425 cl <- thisClient |
426 let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing |
426 let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing |
427 if isJust b then |
427 if isJust b then |
428 voted (clUID cl) (fromJust b) |
428 voted (fromJust b) |
429 else |
429 else |
430 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
430 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
431 |
431 |
432 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
432 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
433 |
433 |