on develop help sign in
Use eventSubscribedNow instead of eventSubscribedNever for "now".
375c84eAdriaan Leijnse
src/Reflex/Spider/Internal.hs+10
@@ -599,6 +599,16 @@ eventSubscribedNever = EventSubscribed
599 , eventSubscribedWhoCreated = return ["never"]
599 , eventSubscribedWhoCreated = return ["never"]
600#endif
600#endif
601 }
601 }
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+ }
602
612
603eventSubscribedFan :: FanSubscribed x k v -> EventSubscribed x
613eventSubscribedFan :: FanSubscribed x k v -> EventSubscribed x
604eventSubscribedFan !subscribed = EventSubscribed
614eventSubscribedFan !subscribed = EventSubscribed