@@ -840,10 +840,10 @@ instance Functor (Dynamic Identity) where
840 fmap = newMapDyn
840 fmap = newMapDyn
842instance Applicative (Dynamic Identity) where
842instance Applicative (Dynamic Identity) where
843− pure = DynamicConst
843+ pure = DynamicConst
844 (<*>) = zipDynWith ($)
844 (<*>) = zipDynWith ($)
845− _ *> b = b
845+ (*>) = zipDynWith (flip const)
846− a <* _ = a
846+ (<*) = zipDynWith const
848instance R.FunctorMaybe Event where
848instance R.FunctorMaybe Event where
849 fmapMaybe f = push $ return . f
849 fmapMaybe f = push $ return . f