equal
deleted
inserted
replaced
57 removed <- gets removedClients |
57 removed <- gets removedClients |
58 when (not $ ci `Set.member` removed) $ |
58 when (not $ ci `Set.member` removed) $ |
59 processAction (ProcessAccountInfo info) |
59 processAction (ProcessAccountInfo info) |
60 |
60 |
61 TimerAction tick -> |
61 TimerAction tick -> |
62 return () |
62 mapM_ processAction $ |
63 --liftM snd $ |
63 PingAll : [StatsAction | even tick] |
64 -- foldM processAction (0, serverInfo, rnc) $ |
|
65 -- PingAll : [StatsAction | even tick] |
|
66 |
64 |
67 |
65 |
68 startServer :: ServerInfo -> Socket -> IO () |
66 startServer :: ServerInfo -> Socket -> IO () |
69 startServer serverInfo serverSocket = do |
67 startServer serverInfo serverSocket = do |
70 putStrLn $ "Listening on port " ++ show (listenPort serverInfo) |
68 putStrLn $ "Listening on port " ++ show (listenPort serverInfo) |