Fixed stderrLock starting out in wrong state

3 files changed, 3 insertions, 3 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/trivmix.cabal b/trivmix.cabal
index 0fd85f2..e6dcc3b 100644
--- a/trivmix.cabal
+++ b/trivmix.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                trivmix
-version:             2.4.2
+version:             2.4.3
 -- synopsis:            
 -- description:         
 license:             PublicDomain
diff --git a/trivmix.nix b/trivmix.nix
index ebeb77f..ec065eb 100644
--- a/trivmix.nix
+++ b/trivmix.nix
@@ -6,7 +6,7 @@
 
 cabal.mkDerivation (self: {
   pname = "trivmix";
-  version = "2.4.2";
+  version = "2.4.3";
   src = ./.;
   isLibrary = false;
   isExecutable = true;