equal
deleted
inserted
replaced
539 kickTimeouted rnc ci = do |
539 kickTimeouted rnc ci = do |
540 pq <- io $ client'sM rnc pingsQueue ci |
540 pq <- io $ client'sM rnc pingsQueue ci |
541 when (pq > 0) $ do |
541 when (pq > 0) $ do |
542 withStateT (\as -> as{clientIndex = Just ci}) $ |
542 withStateT (\as -> as{clientIndex = Just ci}) $ |
543 processAction (ByeClient "Ping timeout") |
543 processAction (ByeClient "Ping timeout") |
544 when (pq > 1) $ |
544 -- when (pq > 1) $ |
545 processAction $ DeleteClient ci -- smth went wrong with client io threads, issue DeleteClient here |
545 -- processAction $ DeleteClient ci -- smth went wrong with client io threads, issue DeleteClient here |
546 |
546 |
547 |
547 |
548 processAction StatsAction = do |
548 processAction StatsAction = do |
549 si <- gets serverInfo |
549 si <- gets serverInfo |
550 when (not $ shutdownPending si) $ do |
550 when (not $ shutdownPending si) $ do |