on master help sign in
Use waitCatch instead of wait
commitc157ea7406a3a3fabf0e459717b198301190d415 authorAlfredo Di Napoli <alfredo.dinapoli@gmail.com> dateMon 20 Feb 2017, 13:09 (10 years ago) parente01f38e
1 file changed+1−1
katip/src/Katip/Scribes/Handle.hs+1−1
katip/src/Katip/Scribes/Handle.hs+1−1
@@ -81,7 +81,7 @@ mkHandleScribe cs h sev verb = do
8181 stopWorker :: Async () -> U.InChan WorkerCmd -> IO ()
8282 stopWorker worker inChan = do
8383 U.writeChan inChan PoisonPill
84− wait worker
84+ void $ waitCatch worker
8585
8686 workerLoop :: U.OutChan WorkerCmd -> IO ()
8787 workerLoop outChan = do