diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 17:31:25 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 17:31:25 +0200 |
| commit | be19fd436d8f1ca0c534edfd81182bd737a88228 (patch) | |
| tree | 3d6a7110aa240e4d759e9301ad34944ab20aaf95 /src | |
| parent | a469f024336a6f7b0b55328cc33f5d1f6e21250c (diff) | |
| download | trivmix-be19fd436d8f1ca0c534edfd81182bd737a88228.tar trivmix-be19fd436d8f1ca0c534edfd81182bd737a88228.tar.gz trivmix-be19fd436d8f1ca0c534edfd81182bd737a88228.tar.bz2 trivmix-be19fd436d8f1ca0c534edfd81182bd737a88228.tar.xz trivmix-be19fd436d8f1ca0c534edfd81182bd737a88228.zip | |
Syntax error fix
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 96e578b..181025d 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 <- newMVar () |
| 169 | let | 169 | let |
| 170 | handleFile file = do | 170 | handleFile file = do |
| 171 | levelChanges' <- dupChan levelChanges | 171 | levelChanges' <- dupChan levelChanges |