From 835226ea18526e3d9b95697b9bdd15cde6e19e50 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 21 Jun 2015 17:36:23 +0200 Subject: Fixed stderrLock starting out in wrong state --- src/Trivmix.hs | 2 +- trivmix.cabal | 2 +- trivmix.nix | 2 +- 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; -- cgit v1.2.3