diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-09 22:58:52 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-09 22:58:52 +0200 |
| commit | caff1254b3af4288601f33bef40189a6ef0a27e5 (patch) | |
| tree | 854625152ddfaede0cea0e0c31b22564ba898a55 /src | |
| parent | 83cced47e48386d2561e40b4e5cee14d77a930ed (diff) | |
| download | trivmix-caff1254b3af4288601f33bef40189a6ef0a27e5.tar trivmix-caff1254b3af4288601f33bef40189a6ef0a27e5.tar.gz trivmix-caff1254b3af4288601f33bef40189a6ef0a27e5.tar.bz2 trivmix-caff1254b3af4288601f33bef40189a6ef0a27e5.tar.xz trivmix-caff1254b3af4288601f33bef40189a6ef0a27e5.zip | |
fixed build fail
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 fe592fe..7a786f3 100644 --- a/src/Trivmix.hs +++ b/src/Trivmix.hs | |||
| @@ -145,7 +145,7 @@ handleFiles inotify level files = do | |||
| 145 | forkIO $ forever $ do -- Broadcast level changes and update all files | 145 | forkIO $ forever $ do -- Broadcast level changes and update all files |
| 146 | readChan levelChanges' >>= writeLevel file | 146 | readChan levelChanges' >>= writeLevel file |
| 147 | addWatch inotify watchedAttrs file (const $ readLevel levelChanges level file) | 147 | addWatch inotify watchedAttrs file (const $ readLevel levelChanges level file) |
| 148 | sequence [onStateFile f (show initLevel ++ "\n") handleFile f | f <- files] | 148 | sequence [onStateFile f (show initLevel ++ "\n") $ handleFile f | f <- files] |
| 149 | forkIO $ forever $ do | 149 | forkIO $ forever $ do |
| 150 | readChan levelChanges >>= swapMVar level | 150 | readChan levelChanges >>= swapMVar level |
| 151 | return () | 151 | return () |