Fix instance Applicative Dynamic: (<*)/(*>)
commit5d9ce2367846d85a43ecc6a2ac848fd07f3d3bd7
authorLennart Spitzner <lsp@informatik.uni-kiel.de>
dateTue 18 Oct 2016, 22:12 (10 years ago)
parent0fbe5c2
src/Reflex/Spider/Internal.hs+3−3
@@ -840,10 +840,10 @@ instance Functor (Dynamic Identity) where
840840 fmap = newMapDyn
841841
842842instance Applicative (Dynamic Identity) where
843− pure = DynamicConst
843+ pure = DynamicConst
844844 (<*>) = zipDynWith ($)
845− _ *> b = b
846− a <* _ = a
845+ (*>) = zipDynWith (flip const)
846+ (<*) = zipDynWith const
847847
848848instance R.FunctorMaybe Event where
849849 fmapMaybe f = push $ return . f