equal
deleted
inserted
replaced
77 data ServerInfo = |
77 data ServerInfo = |
78 ServerInfo |
78 ServerInfo |
79 { |
79 { |
80 isDedicated :: Bool, |
80 isDedicated :: Bool, |
81 serverMessage :: String, |
81 serverMessage :: String, |
82 listenPort :: PortNumber |
82 listenPort :: PortNumber, |
|
83 loginsNumber :: Int, |
|
84 lastHourUsers :: [UTCTime] |
83 } |
85 } |
84 newServerInfo = ( |
86 newServerInfo = ( |
85 ServerInfo |
87 ServerInfo |
86 True |
88 True |
87 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
89 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
88 46631 |
90 46631 |
|
91 0 |
|
92 [] |
89 ) |
93 ) |
90 |
94 |
91 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
95 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
92 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
96 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
93 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |
97 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |