1 files changed, 1 insertions, 1 deletions
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

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 ()
165	handleFiles inotify level files = do	165	handleFiles inotify level files = do
166	initLevel <- readMVar level	166	initLevel <- readMVar level
167	levelChanges <- (newChan :: IO (Chan Level))	167	levelChanges <- (newChan :: IO (Chan Level))
168	stderrLock <- newMVar ()	168	stderrLock <- newEmptyMVar
169	let	169	let
170	handleFile file = do	170	handleFile file = do
171	levelChanges' <- dupChan levelChanges	171	levelChanges' <- dupChan levelChanges