diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 18:31:40 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 18:31:40 +0200 |
| commit | 011a884bf286ab4ed908b7b040091b92489eb653 (patch) | |
| tree | 2bc3dd2fec468733329fdc3fa82801fb883b7255 | |
| parent | 1bfaed79925e65846bf7b8c1953f26c0198ee29a (diff) | |
| download | trivmix-011a884bf286ab4ed908b7b040091b92489eb653.tar trivmix-011a884bf286ab4ed908b7b040091b92489eb653.tar.gz trivmix-011a884bf286ab4ed908b7b040091b92489eb653.tar.bz2 trivmix-011a884bf286ab4ed908b7b040091b92489eb653.tar.xz trivmix-011a884bf286ab4ed908b7b040091b92489eb653.zip | |
Don't notify watchdog
| -rw-r--r-- | trivmix.cabal | 2 | ||||
| -rw-r--r-- | trivmix.nix | 2 | ||||
| -rw-r--r-- | trivmix/Trivmix.hs | 1 |
3 files changed, 2 insertions, 3 deletions
diff --git a/trivmix.cabal b/trivmix.cabal index 37218b6..494e165 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: 3.2.1 | 5 | version: 3.3.0 |
| 6 | -- synopsis: | 6 | -- synopsis: |
| 7 | -- description: | 7 | -- description: |
| 8 | license: PublicDomain | 8 | license: PublicDomain |
diff --git a/trivmix.nix b/trivmix.nix index 310e687..233cfb3 100644 --- a/trivmix.nix +++ b/trivmix.nix | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | }: | 5 | }: |
| 6 | mkDerivation { | 6 | mkDerivation { |
| 7 | pname = "trivmix"; | 7 | pname = "trivmix"; |
| 8 | version = "3.2.1"; | 8 | version = "3.3.0"; |
| 9 | src = ./.; | 9 | src = ./.; |
| 10 | isLibrary = true; | 10 | isLibrary = true; |
| 11 | isExecutable = true; | 11 | isExecutable = true; |
diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs index 21add53..69a3b50 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
| @@ -192,7 +192,6 @@ trivmix Options{..} = do | |||
| 192 | 192 | ||
| 193 | mix :: MVar Level -> CFloat -> IO CFloat | 193 | mix :: MVar Level -> CFloat -> IO CFloat |
| 194 | mix level input = do | 194 | mix level input = do |
| 195 | notifyWatchdog | ||
| 196 | level' <- readMVar level | 195 | level' <- readMVar level |
| 197 | return $ (CFloat $ toFloat level') * input | 196 | return $ (CFloat $ toFloat level') * input |
| 198 | 197 | ||