@@ -380,7 +380,7 @@ newSubscriberFan :: forall x k. (HasSpiderTimeline x, GCompare k) => FanSubscrib
380380newSubscriberFan subscribed = debugSubscriber ("SubscriberFan " <> showNodeId subscribed) $ Subscriber
381381 { subscriberPropagate = \a -> {-# SCC "traverseFan" #-} do
382382 subs <- liftIO $ readIORef $ fanSubscribedSubscribers subscribed
383− -- tracePropagate (Proxy :: Proxy x) $ "SubscriberFan" <> showNodeId subscribed <> ": " ++ show (DMap.size subs) ++ " keys subscribed, " ++ show (DMap.size a) ++ " keys firing"
383+ tracePropagate (Proxy :: Proxy x) $ show (DMap.size subs) <> " keys subscribed, " <> show (DMap.size a) <> " keys firing"
384384 liftIO $ writeIORef (fanSubscribedOccurrence subscribed) $ Just a
385385 scheduleClear $ fanSubscribedOccurrence subscribed
386386 let f _ (Pair (Identity v) subsubs) = do
@@ -397,6 +397,7 @@ newSubscriberFan subscribed = debugSubscriber ("SubscriberFan " <> showNodeId su
397397 forM_ (DMap.toList subscribers) $ \(_ :=> v) -> WeakBag.traverse (_fanSubscribedChildren_list v) $ recalculateSubscriberHeight new
398398 }
399399
400+
400401newSubscriberSwitch :: forall x a. HasSpiderTimeline x => SwitchSubscribed x a -> IO (Subscriber x a)
401402newSubscriberSwitch subscribed = debugSubscriber ("SubscriberCoincidenceOuter" <> showNodeId subscribed) $ Subscriber
402403 { subscriberPropagate = \a -> {-# SCC "traverseSwitch" #-} do