@@ -599,6 +599,16 @@ eventSubscribedNever = EventSubscribed
599599 , eventSubscribedWhoCreated = return ["never"]
600600#endif
601601 }
602+eventSubscribedNow :: EventSubscribed x
603+eventSubscribedNow = EventSubscribed
604+ { eventSubscribedHeightRef = zeroRef
605+ , eventSubscribedRetained = toAny ()
606+#ifdef DEBUG_CYCLES
607+ , eventSubscribedGetParents = return []
608+ , eventSubscribedHasOwnHeightRef = False
609+ , eventSubscribedWhoCreated = return ["now"]
610+#endif
611+ }
602612
603613eventSubscribedFan :: FanSubscribed x k v -> EventSubscribed x
604614eventSubscribedFan !subscribed = EventSubscribed