gameServer/CoreTypes.hs
changeset 10058 4ed428389c4e
parent 10041 82d062e36e96
child 10065 35bd559c1973
equal deleted inserted replaced
10057:795f5f918c8c 10058:4ed428389c4e
   275 
   275 
   276 
   276 
   277 data VoteType = VoteKick B.ByteString
   277 data VoteType = VoteKick B.ByteString
   278 
   278 
   279 
   279 
   280 newVote :: VoteType -> Voting
   280 newVoting :: VoteType -> Voting
   281 newVote = Voting 2 [] []
   281 newVoting = Voting 2 [] []
   282 
   282 
   283 
   283 
   284 data AccountInfo =
   284 data AccountInfo =
   285     HasAccount B.ByteString Bool Bool
   285     HasAccount B.ByteString Bool Bool
   286     | Guest
   286     | Guest