From 835226ea18526e3d9b95697b9bdd15cde6e19e50 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 21 Jun 2015 17:36:23 +0200
Subject: Fixed stderrLock starting out in wrong state

---
 src/Trivmix.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Trivmix.hs')

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 181025d..0f84f62 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -165,7 +165,7 @@ handleFiles :: INotify -> MVar Level -> [FilePath] -> IO ()
 handleFiles inotify level files = do
   initLevel <- readMVar level
   levelChanges <- (newChan :: IO (Chan Level))
-  stderrLock <- newMVar ()
+  stderrLock <- newEmptyMVar
   let 
     handleFile file = do
       levelChanges' <- dupChan levelChanges
-- 
cgit v1.2.3