on develop help sign in
Merge pull request #252 from chessai/outsource-dynamic-spider-map

outsource dynamic spider's fmap

commit185e4eaca5e32dfeb879b4bc6c5429c2f34739c0 authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 10 Jan 2019, 11:41 (8 years ago) parentc0f3ee486f8c82
1 file changed+5−1
src/Reflex/Spider/Internal.hs+5−1
src/Reflex/Spider/Internal.hs+5−1
@@ -2307,9 +2307,13 @@ newJoinDyn d =
23072307 in Reflex.Spider.Internal.unsafeBuildDynamic readV0 v'
23082308
23092309instance HasSpiderTimeline x => Functor (Reflex.Class.Dynamic (SpiderTimeline x)) where
2310− fmap f = SpiderDynamic . newMapDyn f . unSpiderDynamic
2310+ fmap = mapDynamicSpider
23112311 x <$ d = R.unsafeBuildDynamic (return x) $ x <$ R.updated d
23122312
2313+mapDynamicSpider :: HasSpiderTimeline x => (a -> b) -> Reflex.Class.Dynamic (SpiderTimeline x) a -> Reflex.Class.Dynamic (SpiderTimeline x) b
2314+mapDynamicSpider f = SpiderDynamic . newMapDyn f . unSpiderDynamic
2315+{-# INLINE [1] mapDynamicSpider #-}
2316+
23132317instance HasSpiderTimeline x => Applicative (Reflex.Class.Dynamic (SpiderTimeline x)) where
23142318 pure = SpiderDynamic . dynamicConst
23152319#if MIN_VERSION_base(4,10,0)