Fix (>>) for Dynamic
commit60d2878142943487987feeeea108dbed5405f469
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateWed 8 Nov 2017, 11:21 (9 years ago)
parent5d72d4f
src/Reflex/Spider/SpiderTimeline.include.hs+1−1
@@ -59,7 +59,7 @@ instance HasSpiderTimeline x => Monad (Reflex.Class.Dynamic (SpiderTimeline x))
5959 {-# INLINE (>>=) #-}
6060 x >>= f = SpiderDynamic $ dynamicDynIdentity $ newJoinDyn $ newMapDyn (unSpiderDynamic . f) $ unSpiderDynamic x
6161 {-# INLINE (>>) #-}
62− _ >> y = y
62+ (>>) = (*>)
6363 {-# INLINE fail #-}
6464 fail _ = error "Dynamic does not support 'fail'"
6565