diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 18:51:05 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-05-15 18:51:05 +0200 |
| commit | a132c54a0cdbc0fd00ad818780ac4e129a33b358 (patch) | |
| tree | b4662e95b38277ac53716e9db6f245f50de41e92 | |
| parent | 55cee1104651ec938b8f4412993780b766a30f33 (diff) | |
| download | trivmix-a132c54a0cdbc0fd00ad818780ac4e129a33b358.tar trivmix-a132c54a0cdbc0fd00ad818780ac4e129a33b358.tar.gz trivmix-a132c54a0cdbc0fd00ad818780ac4e129a33b358.tar.bz2 trivmix-a132c54a0cdbc0fd00ad818780ac4e129a33b358.tar.xz trivmix-a132c54a0cdbc0fd00ad818780ac4e129a33b358.zip | |
…
| -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 41370cc..41a1046 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
| @@ -189,7 +189,6 @@ trivmix Options{..} = do | |||
| 189 | newLevel <- mulBalance <$> readMVar balance <*> readMVar level | 189 | newLevel <- mulBalance <$> readMVar balance <*> readMVar level |
| 190 | currentLevel <- readMVar level' | 190 | currentLevel <- readMVar level' |
| 191 | mapM_ (\x -> swapMVar level' (linInt' x currentLevel newLevel) >> threadDelay delay) [0,recip frames..1] | 191 | mapM_ (\x -> swapMVar level' (linInt' x currentLevel newLevel) >> threadDelay delay) [0,recip frames..1] |
| 192 | notifyWatchdog | ||
| 193 | 192 | ||
| 194 | mix :: MVar Level -> CFloat -> IO CFloat | 193 | mix :: MVar Level -> CFloat -> IO CFloat |
| 195 | mix level input = do | 194 | mix level input = do |