From caff1254b3af4288601f33bef40189a6ef0a27e5 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 9 Jun 2015 22:58:52 +0200
Subject: fixed build fail

---
 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 fe592fe..7a786f3 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -145,7 +145,7 @@ handleFiles inotify level files = do
       forkIO $ forever $ do -- Broadcast level changes and update all files
         readChan levelChanges' >>= writeLevel file
       addWatch inotify watchedAttrs file (const $ readLevel levelChanges level file)
-  sequence [onStateFile f (show initLevel ++ "\n") handleFile f | f <- files]
+  sequence [onStateFile f (show initLevel ++ "\n") $ handleFile f | f <- files]
   forkIO $ forever $ do
     readChan levelChanges >>= swapMVar level
     return ()
-- 
cgit v1.2.3