--- a/gameServer/ServerCore.hs Tue Jan 21 22:38:13 2014 +0100
+++ b/gameServer/ServerCore.hs Tue Jan 21 22:43:06 2014 +0100
@@ -62,8 +62,8 @@
TimerAction tick ->
mapM_ processAction $
- PingAll
- : [StatsAction | even tick]
+ PingAll
+ : [StatsAction | even tick]
++ [Cleanup | tick `mod` 100 == 0]