changeset 10215 | 26fc5502ba22 |
parent 10212 | 5fb3bb2de9d2 |
child 10460 | 8dcea9087d75 |
10214:426aafe1f3ed | 10215:26fc5502ba22 |
---|---|
51 return () |
51 return () |
52 |
52 |
53 TimerAction tick -> |
53 TimerAction tick -> |
54 mapM_ processAction $ |
54 mapM_ processAction $ |
55 PingAll |
55 PingAll |
56 : CheckVotes |
|
56 : [StatsAction | even tick] |
57 : [StatsAction | even tick] |
57 ++ [Cleanup | tick `mod` 100 == 0] |
58 ++ [Cleanup | tick `mod` 100 == 0] |
58 |
59 |
59 |
60 |
60 startServer :: ServerInfo -> IO () |
61 startServer :: ServerInfo -> IO () |