equal
deleted
inserted
replaced
44 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
44 rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () |
45 rnf a = a `seq` () |
45 rnf a = a `seq` () |
46 |
46 |
47 data Action = |
47 data Action = |
48 AnswerClients ![ClientChan] ![B.ByteString] |
48 AnswerClients ![ClientChan] ![B.ByteString] |
|
49 | AnswerClientsByProto ![(ClientChan, Word16)] !(Word16 -> [B.ByteString]) |
49 | SendServerMessage |
50 | SendServerMessage |
50 | SendServerVars |
51 | SendServerVars |
51 | MoveToRoom RoomIndex |
52 | MoveToRoom RoomIndex |
52 | MoveToLobby B.ByteString |
53 | MoveToLobby B.ByteString |
53 | RemoveTeam B.ByteString |
54 | RemoveTeam B.ByteString |