equal
deleted
inserted
replaced
2 |
2 |
3 import IO |
3 import IO |
4 import Control.Concurrent.STM |
4 import Control.Concurrent.STM |
5 import Data.Word |
5 import Data.Word |
6 import Data.Char |
6 import Data.Char |
7 import Data.List |
7 import Data.List(find) |
8 import Maybe (fromJust) |
8 import Maybe (fromJust) |
9 import qualified Data.Map as Map |
9 import qualified Data.Map as Map |
10 import Data.Time |
10 import Data.Time |
|
11 import Data.Sequence(Seq, empty) |
11 import Network |
12 import Network |
12 |
13 |
13 data ClientInfo = |
14 data ClientInfo = |
14 ClientInfo |
15 ClientInfo |
15 { |
16 { |
57 gameinprogress :: Bool, |
58 gameinprogress :: Bool, |
58 playersIn :: Int, |
59 playersIn :: Int, |
59 readyPlayers :: Int, |
60 readyPlayers :: Int, |
60 isRestrictedJoins :: Bool, |
61 isRestrictedJoins :: Bool, |
61 isRestrictedTeams :: Bool, |
62 isRestrictedTeams :: Bool, |
62 roundMsgs :: [String], |
63 roundMsgs :: Seq String, |
63 params :: Map.Map String [String] |
64 params :: Map.Map String [String] |
64 } |
65 } |
65 createRoom = ( |
66 createRoom = ( |
66 RoomInfo |
67 RoomInfo |
67 "" |
68 "" |
72 False |
73 False |
73 1 |
74 1 |
74 0 |
75 0 |
75 False |
76 False |
76 False |
77 False |
77 [] |
78 Data.Sequence.empty |
78 Map.empty |
79 Map.empty |
79 ) |
80 ) |
80 |
81 |
81 data ServerInfo = |
82 data ServerInfo = |
82 ServerInfo |
83 ServerInfo |