WaitCatch ES worker threads
Wait can throw exceptions if the worker crashed. Since we're sweeping up
live workers, we don't really care about the exception they may have
thrown and don't want it interrupting shutdown
commit0893e36a8182f1718e93d205fc1cfd328c2e1004
authorMichael Xavier <michael@michaelxavier.net>
dateMon 9 Nov 2015, 11:27 (11 years ago)
parentbbcf5c6
katip-elasticsearch/src/Katip/Scribes/ElasticSearch.hs+1−1
@@ -150,7 +150,7 @@ mkEsScribe cfg@EsScribeCfg {..} server ix mapping sev verb = do
150150 _ <- async $ do
151151 takeMVar endSig
152152 atomically $ closeTBMQueue q
153− mapM_ wait workers
153+ mapM_ waitCatch workers
154154 putMVar endSig ()
155155
156156 let scribe = Scribe $ \ i ->