diff options
| -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 |