diff options
Diffstat (limited to 'trivmix/Trivmix.hs')
-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 | ||