@@ -142,6 +142,7 @@ instance Reflex t => Reflex (ProfiledTimeline t) where
142 type PullM (ProfiledTimeline t) = ProfiledM (PullM t)
142 type PullM (ProfiledTimeline t) = ProfiledM (PullM t)
143 never = Event_Profiled never
143 never = Event_Profiled never
144 constant = Behavior_Profiled . constant
144 constant = Behavior_Profiled . constant
145+ now = ProfiledM $ Event_Profiled <$> now
145 push f (Event_Profiled e) = coerce $ push (coerce f) $ profileEvent e -- Profile before rather than after; this way fanout won't count against us
146 push f (Event_Profiled e) = coerce $ push (coerce f) $ profileEvent e -- Profile before rather than after; this way fanout won't count against us
146 pushCheap f (Event_Profiled e) = coerce $ pushCheap (coerce f) $ profileEvent e
147 pushCheap f (Event_Profiled e) = coerce $ pushCheap (coerce f) $ profileEvent e
147 pull = Behavior_Profiled . pull . coerce
148 pull = Behavior_Profiled . pull . coerce