Run core timer
authorunc0rr
Mon, 19 Jul 2010 23:31:08 +0400
changeset 3657 fa3bf50d0338
parent 3656 c74a4a407146
child 3658 113cb9345be1
Run core timer
gameServer/ServerCore.hs
--- 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 ()