git.iko.soy/reflex
on develop help sign in
Fix liftA2 instance for SpiderTimeline Dynamics
ac0ca7bRyan Trinkle
src/Reflex/Spider/SpiderTimeline.include.hs+1−1
compare with develop
unifiedsplit
@@ -78,7 +78,7 @@ instance HasSpiderTimeline x => Functor (Reflex.Class.Dynamic (SpiderTimeline x)
78instance HasSpiderTimeline x => Applicative (Reflex.Class.Dynamic (SpiderTimeline x)) where
78instance HasSpiderTimeline x => Applicative (Reflex.Class.Dynamic (SpiderTimeline x)) where
79 pure = SpiderDynamic . dynamicConst
79 pure = SpiderDynamic . dynamicConst
80#if MIN_VERSION_base(4,10,0)
80#if MIN_VERSION_base(4,10,0)
81− liftA2 f a b = SpiderDynamic $ Reflex.Spider.Internal.zipDynWith f a b
81+ liftA2 f a b = SpiderDynamic $ Reflex.Spider.Internal.zipDynWith f (unSpiderDynamic a) (unSpiderDynamic b)
82#endif
82#endif
83 SpiderDynamic a <*> SpiderDynamic b = SpiderDynamic $ Reflex.Spider.Internal.zipDynWith ($) a b
83 SpiderDynamic a <*> SpiderDynamic b = SpiderDynamic $ Reflex.Spider.Internal.zipDynWith ($) a b
84 _ *> b = b
84 _ *> b = b