@@ -1500,7 +1500,7 @@ fanInt p =
15001500 t <- liftIO $ FastWeakBag.insert sub b
15011501 currentOcc <- readIORef (_fanInt_occRef self)
15021502 (EventSubscription _ (EventSubscribed !heightRef _)) <- readIORef (_fanInt_subscriptionRef self)
1503− return (EventSubscription (FastWeakBag.remove t) $! EventSubscribed heightRef $! toAny $! _fanInt_subscriptionRef self, IntMap.lookup k currentOcc)
1503+ return (EventSubscription (FastWeakBag.remove t) $! EventSubscribed heightRef $! toAny $! (_fanInt_subscriptionRef self, t), IntMap.lookup k currentOcc)
15041504
15051505{-# INLINABLE getFanSubscribed #-}
15061506getFanSubscribed :: (Defer (SomeAssignment x) m, Defer (SomeHoldInit x) m, Defer (SomeMergeInit x) m, Defer SomeClear m, HasCurrentHeight x m, Defer (SomeResetCoincidence x) m, HasSpiderTimeline x, m ~ EventM x, GCompare k) => k a -> Fan x k -> Subscriber x a -> m (WeakBagTicket, FanSubscribed x k, Maybe a)