git.iko.soy/reflex
on develop help sign in
Roll back primitive headE; it seems to have a GC issue
04556b9Ryan Trinkle
src/Reflex/Spider/SpiderTimeline.include.hs+6−3
compare with develop
unifiedsplit
@@ -19,7 +19,8 @@ instance HasSpiderTimeline x => Reflex.Class.MonadHold (SpiderTimeline x) (Event
19 {-# INLINABLE buildDynamic #-}
19 {-# INLINABLE buildDynamic #-}
20 buildDynamic = buildDynamicSpiderEventM
20 buildDynamic = buildDynamicSpiderEventM
21 {-# INLINABLE headE #-}
21 {-# INLINABLE headE #-}
22+ headE = R.slowHeadE
22− headE (SpiderEvent e) = SpiderEvent <$> Reflex.Spider.Internal.headE e
23+-- headE (SpiderEvent e) = SpiderEvent <$> Reflex.Spider.Internal.headE e
23
24
24instance (
25instance (
25#ifdef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL
26#ifdef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL
@@ -49,7 +50,8 @@ instance HasSpiderTimeline x => Reflex.Class.MonadHold (SpiderTimeline x) (Spide
49 {-# INLINABLE buildDynamic #-}
50 {-# INLINABLE buildDynamic #-}
50 buildDynamic getV0 (SpiderEvent e) = SpiderPushM $ fmap (SpiderDynamic . dynamicDynIdentity) $ Reflex.Spider.Internal.buildDynamic (coerce getV0) $ coerce e
51 buildDynamic getV0 (SpiderEvent e) = SpiderPushM $ fmap (SpiderDynamic . dynamicDynIdentity) $ Reflex.Spider.Internal.buildDynamic (coerce getV0) $ coerce e
51 {-# INLINABLE headE #-}
52 {-# INLINABLE headE #-}
53+ headE = R.slowHeadE
52− headE (SpiderEvent e) = SpiderPushM $ SpiderEvent <$> Reflex.Spider.Internal.headE e
54+-- headE (SpiderEvent e) = SpiderPushM $ SpiderEvent <$> Reflex.Spider.Internal.headE e
53
55
54instance HasSpiderTimeline x => Monad (Reflex.Class.Dynamic (SpiderTimeline x)) where
56instance HasSpiderTimeline x => Monad (Reflex.Class.Dynamic (SpiderTimeline x)) where
55 {-# INLINE return #-}
57 {-# INLINE return #-}
@@ -121,7 +123,8 @@ instance HasSpiderTimeline x => Reflex.Class.MonadHold (SpiderTimeline x) (Spide
121 {-# INLINABLE buildDynamic #-}
123 {-# INLINABLE buildDynamic #-}
122 buildDynamic getV0 e = SpiderHostFrame $ fmap (SpiderDynamic . dynamicDynIdentity) $ Reflex.Spider.Internal.buildDynamic (coerce getV0) $ coerce $ unSpiderEvent e
124 buildDynamic getV0 e = SpiderHostFrame $ fmap (SpiderDynamic . dynamicDynIdentity) $ Reflex.Spider.Internal.buildDynamic (coerce getV0) $ coerce $ unSpiderEvent e
123 {-# INLINABLE headE #-}
125 {-# INLINABLE headE #-}
126+ headE = R.slowHeadE
124− headE (SpiderEvent e) = SpiderHostFrame $ SpiderEvent <$> Reflex.Spider.Internal.headE e
127+-- headE (SpiderEvent e) = SpiderHostFrame $ SpiderEvent <$> Reflex.Spider.Internal.headE e
125
128
126instance HasSpiderTimeline x => Reflex.Class.MonadSample (SpiderTimeline x) (SpiderHost x) where
129instance HasSpiderTimeline x => Reflex.Class.MonadSample (SpiderTimeline x) (SpiderHost x) where
127 {-# INLINABLE sample #-}
130 {-# INLINABLE sample #-}