@@ -81,7 +81,7 @@ mkHandleScribe cs h sev verb = do
81 stopWorker :: Async () -> U.InChan WorkerCmd -> IO ()
81 stopWorker :: Async () -> U.InChan WorkerCmd -> IO ()
82 stopWorker worker inChan = do
82 stopWorker worker inChan = do
83 U.writeChan inChan PoisonPill
83 U.writeChan inChan PoisonPill
84− wait worker
84+ void $ waitCatch worker
86 workerLoop :: U.OutChan WorkerCmd -> IO ()
86 workerLoop :: U.OutChan WorkerCmd -> IO ()
87 workerLoop outChan = do
87 workerLoop outChan = do