@@ -532,7 +532,7 @@ run roots after = do
532 then do scheduleRootClear occRef
532 then do scheduleRootClear occRef
533 return $ Just r
533 return $ Just r
534 else return Nothing
534 else return Nothing
535− forM_ (catMaybes rootsToPropagate) $ \(RootTrigger (subscribersRef, _, k) :=> a) -> do
535+ forM_ (catMaybes rootsToPropagate) $ \(RootTrigger (subscribersRef, _, _) :=> a) -> do
536 propagateAndUpdateSubscribersRef subscribersRef a
536 propagateAndUpdateSubscribersRef subscribersRef a
537 delayedRef <- EventM $ asks eventEnvDelayedMerges
537 delayedRef <- EventM $ asks eventEnvDelayedMerges
538 let go = do
538 let go = do