Add missing implementation for now in ProfiledTimeline.
commit4ca837132179728827771b290082a769020f01f4
authorAdriaan Leijnse <parenthetical@users.noreply.github.com>
dateSun 3 May 2020, 15:30 (6 years ago)
parent0505d52
src/Reflex/Profiled.hs+1
@@ -142,6 +142,7 @@ instance Reflex t => Reflex (ProfiledTimeline t) where
142142 type PullM (ProfiledTimeline t) = ProfiledM (PullM t)
143143 never = Event_Profiled never
144144 constant = Behavior_Profiled . constant
145+ now = ProfiledM $ Event_Profiled <$> now
145146 push f (Event_Profiled e) = coerce $ push (coerce f) $ profileEvent e -- Profile before rather than after; this way fanout won't count against us
146147 pushCheap f (Event_Profiled e) = coerce $ pushCheap (coerce f) $ profileEvent e
147148 pull = Behavior_Profiled . pull . coerce