Fix liftA2 instance for SpiderTimeline Dynamics
commitac0ca7bc69d30d4e6fab09b26e8a08081b271ca1
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateFri 22 Sep 2017, 22:17 (9 years ago)
parent168b4cd
src/Reflex/Spider/SpiderTimeline.include.hs+1−1
@@ -78,7 +78,7 @@ instance HasSpiderTimeline x => Functor (Reflex.Class.Dynamic (SpiderTimeline x)
7878instance HasSpiderTimeline x => Applicative (Reflex.Class.Dynamic (SpiderTimeline x)) where
7979 pure = SpiderDynamic . dynamicConst
8080#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)
8282#endif
8383 SpiderDynamic a <*> SpiderDynamic b = SpiderDynamic $ Reflex.Spider.Internal.zipDynWith ($) a b
8484 _ *> b = b