51                 return ()

    51                 return ()

    52 

    52 

    53         TimerAction tick ->

    53         TimerAction tick ->

    54                 mapM_ processAction $

    54                 mapM_ processAction $

    55                     PingAll

    55                     PingAll

    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 ()