gameServer/Votes.hs
changeset 14122 d6915d15b6de
parent 13701 d732ca5dcab9
--- 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