diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 17:36:23 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 17:36:23 +0200 |
| commit | 835226ea18526e3d9b95697b9bdd15cde6e19e50 (patch) | |
| tree | 6583708c637cd53b259c91f8226296771973f5fe /src | |
| parent | 959fa071e023aa33aa724162984f65b434296241 (diff) | |
| download | trivmix-835226ea18526e3d9b95697b9bdd15cde6e19e50.tar trivmix-835226ea18526e3d9b95697b9bdd15cde6e19e50.tar.gz trivmix-835226ea18526e3d9b95697b9bdd15cde6e19e50.tar.bz2 trivmix-835226ea18526e3d9b95697b9bdd15cde6e19e50.tar.xz trivmix-835226ea18526e3d9b95697b9bdd15cde6e19e50.zip | |
Fixed stderrLock starting out in wrong state
Diffstat (limited to 'src')
| -rw-r--r-- | src/Trivmix.hs | 2 |
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 () | |||
| 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 |