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 /trivmix | |
| 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
Diffstat (limited to 'trivmix')
| -rw-r--r-- | trivmix/Trivmix.hs | 1 |
1 files changed, 0 insertions, 1 deletions
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 | ||