equal
deleted
inserted
replaced
60 when (uid == hashUnique uid') $ processAction (ProcessAccountInfo info) |
60 when (uid == hashUnique uid') $ processAction (ProcessAccountInfo info) |
61 return () |
61 return () |
62 |
62 |
63 TimerAction tick -> |
63 TimerAction tick -> |
64 mapM_ processAction $ |
64 mapM_ processAction $ |
65 PingAll |
65 PingAll |
66 : [StatsAction | even tick] |
66 : [StatsAction | even tick] |
67 ++ [Cleanup | tick `mod` 100 == 0] |
67 ++ [Cleanup | tick `mod` 100 == 0] |
68 |
68 |
69 |
69 |
70 startServer :: ServerInfo -> IO () |
70 startServer :: ServerInfo -> IO () |
71 startServer si = do |
71 startServer si = do |