on develop help sign in
Make holdDyn lazy in its Event again
9c3d165Ryan Trinkle
src/Reflex/Spider/Internal.hs+1−1
@@ -705,7 +705,7 @@ readBehaviorUntracked b = do
705
705
706data Dynamic x p = Dynamic
706data Dynamic x p = Dynamic
707 { dynamicCurrent :: !(Behavior x (PatchTarget p))
707 { dynamicCurrent :: !(Behavior x (PatchTarget p))
708− , dynamicUpdated :: !(Event x p)
708+ , dynamicUpdated :: Event x p -- This must be lazy; see the comment on holdEvent --TODO: Would this let us eliminate `Dyn`?
709 }
709 }
710
710
711dynamicHold :: Hold x p -> Dynamic x p
711dynamicHold :: Hold x p -> Dynamic x p