gameServer/CoreTypes.hs
changeset 10195 d1c23bb73346
parent 10194 7025bd3c3131
child 10212 5fb3bb2de9d2
equal deleted inserted replaced
10194:7025bd3c3131 10195:d1c23bb73346
    77     | Random [ClientChan] [B.ByteString]
    77     | Random [ClientChan] [B.ByteString]
    78     | QueryReplay B.ByteString
    78     | QueryReplay B.ByteString
    79     | ShowReplay B.ByteString
    79     | ShowReplay B.ByteString
    80     | Cleanup
    80     | Cleanup
    81     | RegisterEvent Event
    81     | RegisterEvent Event
       
    82     | SaveRoom B.ByteString
       
    83     | LoadRoom B.ByteString
    82 
    84 
    83 
    85 
    84 data Event = LobbyChatMessage
    86 data Event = LobbyChatMessage
    85            | EngineMessage
    87            | EngineMessage
    86            | RoomJoin
    88            | RoomJoin
   291         voteType :: VoteType
   293         voteType :: VoteType
   292     }
   294     }
   293 
   295 
   294 
   296 
   295 data VoteType = VoteKick B.ByteString
   297 data VoteType = VoteKick B.ByteString
       
   298               | VoteMap B.ByteString
   296 
   299 
   297 
   300 
   298 newVoting :: VoteType -> Voting
   301 newVoting :: VoteType -> Voting
   299 newVoting = Voting 2 [] []
   302 newVoting = Voting 2 [] []
   300 
   303