equal
deleted
inserted
replaced
85 [] |
85 [] |
86 [] |
86 [] |
87 Map.empty |
87 Map.empty |
88 ) |
88 ) |
89 |
89 |
|
90 data StatisticsInfo = |
|
91 StatisticsInfo |
|
92 { |
|
93 playersNumber :: Int, |
|
94 roomsNumber :: Int |
|
95 } |
|
96 |
90 data ServerInfo = |
97 data ServerInfo = |
91 ServerInfo |
98 ServerInfo |
92 { |
99 { |
93 isDedicated :: Bool, |
100 isDedicated :: Bool, |
94 serverMessage :: String, |
101 serverMessage :: String, |
95 listenPort :: PortNumber, |
102 listenPort :: PortNumber, |
96 loginsNumber :: Int, |
103 loginsNumber :: Int, |
97 lastHourUsers :: [UTCTime] |
104 lastHourUsers :: [UTCTime], |
|
105 stats :: TMVar StatisticsInfo |
98 } |
106 } |
99 |
107 |
100 newServerInfo = ( |
108 newServerInfo = ( |
101 ServerInfo |
109 ServerInfo |
102 True |
110 True |