…

1 files changed, 2 insertions, 1 deletions

diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index 69a3b50..41370cc 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -184,11 +184,12 @@ trivmix Options{..} = do
               frames = interval * fps
               delay = round $ recip fps * 1e6
               linInt x a b = a * (1 - x) + b * x
-              linInt' x a b = either error id $ asFloat (linInt x) a b
+              linInt' x a b = either (const 0) id $ asFloat (linInt x) a b
               mulBalance (bToFloat -> b) x = either error id $ asFloat (*) (Lin . either error id $ refine b) x
             newLevel <- mulBalance <$> readMVar balance <*> readMVar level
             currentLevel <- readMVar level'
             mapM_ (\x -> swapMVar level' (linInt' x currentLevel newLevel) >> threadDelay delay) [0,recip frames..1]
+            notifyWatchdog
 
 mix :: MVar Level -> CFloat -> IO CFloat
 mix level input = do