simple-log 0.8.1 → 0.8.2

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• simple-log.cabal +1/−1
• src/System/Log/Simple/Base.hs +4/−1

@@ -1,5 +1,5 @@ Name:                 simple-log
-Version:              0.8.1
+Version:              0.8.2
 Synopsis:             Simple log for Haskell
 Description:          Log library for Haskell with removing unnecessary traces
 License:              BSD3

@@ -280,6 +280,9 @@ 			my ← myThreadId
 			writeFChan ch ((messageComponent msg, my), msg)
 
+		waitHandlers ∷ IO ()
+		waitHandlers = readMVar handlersThread >>= A.wait
+
 	p ← A.async $ void $ do
 		m ← foldM process M.empty cts
 		stopChildren m
@@ -288,7 +291,7 @@ 		logComponent = mempty,
 		logScope = mempty,
 		logPost = writeMessage,
-		logStop = stopFChan ch >> A.wait p,
+		logStop = stopFChan ch >> A.wait p >> waitHandlers,
 		logConfig = cfgVar,
 		logHandlers = handlersVar,
 		logRestartHandlers = restartHandlers }