diff options
| -rw-r--r-- | src/Trivmix.hs | 2 | ||||
| -rw-r--r-- | trivmix.cabal | 2 |
2 files changed, 2 insertions, 2 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 () |
diff --git a/trivmix.cabal b/trivmix.cabal index 933f01b..596a93d 100644 --- a/trivmix.cabal +++ b/trivmix.cabal | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | -- documentation, see http://haskell.org/cabal/users-guide/ | 2 | -- documentation, see http://haskell.org/cabal/users-guide/ |
| 3 | 3 | ||
| 4 | name: trivmix | 4 | name: trivmix |
| 5 | version: 2.2.0 | 5 | version: 2.2.1 |
| 6 | -- synopsis: | 6 | -- synopsis: |
| 7 | -- description: | 7 | -- description: |
| 8 | license: PublicDomain | 8 | license: PublicDomain |
