author | unc0rr |
Mon, 19 Jul 2010 23:31:08 +0400 | |
changeset 3657 | fa3bf50d0338 |
parent 3656 | c74a4a407146 |
child 3658 | 113cb9345be1 |
--- 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 ()