changeset 10058 | 4ed428389c4e |
parent 10041 | 82d062e36e96 |
child 10065 | 35bd559c1973 |
--- a/gameServer/CoreTypes.hs Thu Jan 23 00:07:27 2014 +0400 +++ b/gameServer/CoreTypes.hs Thu Jan 23 01:04:17 2014 +0400 @@ -277,8 +277,8 @@ data VoteType = VoteKick B.ByteString -newVote :: VoteType -> Voting -newVote = Voting 2 [] [] +newVoting :: VoteType -> Voting +newVoting = Voting 2 [] [] data AccountInfo =