equal
deleted
inserted
replaced
111 data ServerInfo = |
111 data ServerInfo = |
112 ServerInfo |
112 ServerInfo |
113 { |
113 { |
114 isDedicated :: Bool, |
114 isDedicated :: Bool, |
115 serverMessage :: String, |
115 serverMessage :: String, |
116 adminPassword :: String, |
|
117 listenPort :: PortNumber, |
116 listenPort :: PortNumber, |
118 loginsNumber :: Int, |
117 loginsNumber :: Int, |
119 nextRoomID :: Int, |
118 nextRoomID :: Int, |
|
119 dbHost :: String, |
|
120 dbLogin :: String, |
|
121 dbPassword :: String, |
120 stats :: TMVar StatisticsInfo |
122 stats :: TMVar StatisticsInfo |
121 --dbQueries :: TChan DBQuery |
123 --dbQueries :: TChan DBQuery |
122 } |
124 } |
123 |
125 |
124 instance Show ServerInfo where |
126 instance Show ServerInfo where |
126 |
128 |
127 newServerInfo = ( |
129 newServerInfo = ( |
128 ServerInfo |
130 ServerInfo |
129 True |
131 True |
130 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
132 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
131 "" |
|
132 46631 |
133 46631 |
133 0 |
134 0 |
134 0 |
135 0 |
|
136 "" |
|
137 "" |
|
138 "" |
135 ) |
139 ) |
136 |
140 |
137 data CoreMessage = |
141 data CoreMessage = |
138 Accept ClientInfo |
142 Accept ClientInfo |
139 | ClientMessage (Int, [String]) |
143 | ClientMessage (Int, [String]) |