--- a/gameServer/ServerCore.hs	Mon Jul 19 23:30:08 2010 +0400
+++ b/gameServer/ServerCore.hs	Mon Jul 19 23:31:08 2010 +0400
@@ -59,10 +59,8 @@
                 processAction (ProcessAccountInfo info)
 
         TimerAction tick ->
-            return ()
-            --liftM snd $
-            --    foldM processAction (0, serverInfo, rnc) $
-            --        PingAll : [StatsAction | even tick]
+                mapM_ processAction $
+                    PingAll : [StatsAction | even tick]
 
 
 startServer :: ServerInfo -> Socket -> IO ()