equal
deleted
inserted
replaced
63 readyPlayers :: Int, |
63 readyPlayers :: Int, |
64 isRestrictedJoins :: Bool, |
64 isRestrictedJoins :: Bool, |
65 isRestrictedTeams :: Bool, |
65 isRestrictedTeams :: Bool, |
66 roundMsgs :: Seq String, |
66 roundMsgs :: Seq String, |
67 leftTeams :: [String], |
67 leftTeams :: [String], |
|
68 teamsAtStart :: [TeamInfo], |
68 params :: Map.Map String [String] |
69 params :: Map.Map String [String] |
69 } |
70 } |
|
71 |
70 createRoom = ( |
72 createRoom = ( |
71 RoomInfo |
73 RoomInfo |
72 "" |
74 "" |
73 "" |
75 "" |
74 0 |
76 0 |
79 0 |
81 0 |
80 False |
82 False |
81 False |
83 False |
82 Data.Sequence.empty |
84 Data.Sequence.empty |
83 [] |
85 [] |
|
86 [] |
84 Map.empty |
87 Map.empty |
85 ) |
88 ) |
86 |
89 |
87 data ServerInfo = |
90 data ServerInfo = |
88 ServerInfo |
91 ServerInfo |
91 serverMessage :: String, |
94 serverMessage :: String, |
92 listenPort :: PortNumber, |
95 listenPort :: PortNumber, |
93 loginsNumber :: Int, |
96 loginsNumber :: Int, |
94 lastHourUsers :: [UTCTime] |
97 lastHourUsers :: [UTCTime] |
95 } |
98 } |
|
99 |
96 newServerInfo = ( |
100 newServerInfo = ( |
97 ServerInfo |
101 ServerInfo |
98 True |
102 True |
99 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
103 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
100 46631 |
104 46631 |