Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Votes.hs
changeset 14117 d6915d15b6de
parent 13696 d732ca5dcab9
child 15983 2c92499daa67 
--- a/gameServer/Votes.hs	Sat Nov 03 16:20:31 2018 +0300
+++ b/gameServer/Votes.hs	Sat Nov 03 15:17:46 2018 +0100
@@ -43,12 +43,12 @@
 
     case voting rm of
         Nothing -> 
-            return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "There's no voting going on."]]
+            return [Warning $ loc "There's no voting going on."]
         Just voting ->
             if (not forced) && (uid `L.notElem` entitledToVote voting) then
                 return []
             else if (not forced) && (uid `L.elem` map fst (votes voting)) then
-                return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "You already have voted."]]
+                return [Warning $ loc "You already have voted."]
             else if forced && (not $ isAdministrator cl) then
                 return []
             else
hedgewars