@@ -599,6 +599,16 @@ eventSubscribedNever = EventSubscribed
599 , eventSubscribedWhoCreated = return ["never"]
599 , eventSubscribedWhoCreated = return ["never"]
602+eventSubscribedNow :: EventSubscribed x
603+eventSubscribedNow = EventSubscribed
604+ { eventSubscribedHeightRef = zeroRef
605+ , eventSubscribedRetained = toAny ()
607+ , eventSubscribedGetParents = return []
608+ , eventSubscribedHasOwnHeightRef = False
609+ , eventSubscribedWhoCreated = return ["now"]
603eventSubscribedFan :: FanSubscribed x k v -> EventSubscribed x
613eventSubscribedFan :: FanSubscribed x k v -> EventSubscribed x
604eventSubscribedFan !subscribed = EventSubscribed
614eventSubscribedFan !subscribed = EventSubscribed