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 |