equal
deleted
inserted
replaced
2 module CoreTypes where |
2 module CoreTypes where |
3 |
3 |
4 import Control.Concurrent |
4 import Control.Concurrent |
5 import Data.Word |
5 import Data.Word |
6 import qualified Data.Map as Map |
6 import qualified Data.Map as Map |
7 import Data.Sequence(Seq, empty) |
|
8 import Data.Time |
7 import Data.Time |
9 import Network |
8 import Network |
10 import Data.Function |
9 import Data.Function |
11 import Data.ByteString.Char8 as B |
10 import Data.ByteString.Char8 as B |
12 import Data.Unique |
11 import Data.Unique |
66 deriving (Show, Read) |
65 deriving (Show, Read) |
67 |
66 |
68 data GameInfo = |
67 data GameInfo = |
69 GameInfo |
68 GameInfo |
70 { |
69 { |
71 roundMsgs :: Seq B.ByteString, |
70 roundMsgs :: [B.ByteString], |
72 leftTeams :: [B.ByteString], |
71 leftTeams :: [B.ByteString], |
73 teamsAtStart :: [TeamInfo], |
72 teamsAtStart :: [TeamInfo], |
74 teamsInGameNumber :: Int, |
73 teamsInGameNumber :: Int, |
75 allPlayersHaveRegisteredAccounts :: Bool, |
74 allPlayersHaveRegisteredAccounts :: Bool, |
76 giMapParams :: Map.Map B.ByteString B.ByteString, |
75 giMapParams :: Map.Map B.ByteString B.ByteString, |
83 -> Map.Map ByteString ByteString |
82 -> Map.Map ByteString ByteString |
84 -> Map.Map ByteString [ByteString] |
83 -> Map.Map ByteString [ByteString] |
85 -> GameInfo |
84 -> GameInfo |
86 newGameInfo = |
85 newGameInfo = |
87 GameInfo |
86 GameInfo |
88 Data.Sequence.empty |
87 [] |
89 [] |
88 [] |
90 |
89 |
91 data RoomInfo = |
90 data RoomInfo = |
92 RoomInfo |
91 RoomInfo |
93 { |
92 { |