# HG changeset patch # User unc0rr # Date 1345921219 -14400 # Node ID 31a177d2856c7cde4d8c16cb506bf4be3761f969 # Parent 74db5b16a776d23f14bcfacbf07eb5e9c137aa21 Disable workaround, as it still makes server crash and hung clients are hidden from players anyway diff -r 74db5b16a776 -r 31a177d2856c gameServer/Actions.hs --- a/gameServer/Actions.hs Sat Aug 25 13:06:28 2012 -0400 +++ b/gameServer/Actions.hs Sat Aug 25 23:00:19 2012 +0400 @@ -541,8 +541,8 @@ when (pq > 0) $ do withStateT (\as -> as{clientIndex = Just ci}) $ processAction (ByeClient "Ping timeout") - when (pq > 1) $ - processAction $ DeleteClient ci -- smth went wrong with client io threads, issue DeleteClient here +-- when (pq > 1) $ +-- processAction $ DeleteClient ci -- smth went wrong with client io threads, issue DeleteClient here processAction StatsAction = do