From be19fd436d8f1ca0c534edfd81182bd737a88228 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 21 Jun 2015 17:31:25 +0200 Subject: Syntax error fix --- src/Trivmix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Trivmix.hs') 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 () handleFiles inotify level files = do initLevel <- readMVar level levelChanges <- (newChan :: IO (Chan Level)) - stderrLock <- newMVar) () + stderrLock <- newMVar () let handleFile file = do levelChanges' <- dupChan levelChanges -- cgit v1.2.3