equal
deleted
inserted
replaced
154 else |
154 else |
155 mainLoop serverInfo acceptChan messagesChan clients rooms |
155 mainLoop serverInfo acceptChan messagesChan clients rooms |
156 ["MINUTELY"] -> do |
156 ["MINUTELY"] -> do |
157 currentTime <- getCurrentTime |
157 currentTime <- getCurrentTime |
158 let newServerInfo = serverInfo{ |
158 let newServerInfo = serverInfo{ |
159 lastHourUsers = filter (\t -> currentTime `diffUTCTime` t > 3600) $ lastHourUsers serverInfo |
159 lastHourUsers = filter (\t -> currentTime `diffUTCTime` t < 3600) $ lastHourUsers serverInfo |
160 } |
160 } |
161 mainLoop newServerInfo acceptChan messagesChan clients rooms |
161 mainLoop newServerInfo acceptChan messagesChan clients rooms |
162 |
162 |
163 startServer :: ServerInfo -> Socket -> IO() |
163 startServer :: ServerInfo -> Socket -> IO() |
164 startServer serverInfo serverSocket = do |
164 startServer serverInfo serverSocket = do |