--- a/gameServer/HWProtoInRoomState.hs	Mon Jan 27 22:34:06 2014 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Tue Jan 28 00:22:49 2014 +0400
@@ -425,7 +425,7 @@
     cl <- thisClient
     let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing
     if isJust b then
-        voted (clUID cl) (fromJust b)
+        voted (fromJust b)
         else
         return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]]