@@ -705,7 +705,7 @@ readBehaviorUntracked b = do
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`?
711dynamicHold :: Hold x p -> Dynamic x p
711dynamicHold :: Hold x p -> Dynamic x p