on develop help sign in
outsource dynamic spider's fmap
commit86f8c828cacfd8b08e59b3cdef32833280f585d1 authorchessai <chessai1996@gmail.com> dateWed 9 Jan 2019, 17:01 (8 years ago) parentc0f3ee4
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)