1 files changed, 1 insertions, 1 deletions

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 ()