@@ -59,7 +59,7 @@ instance HasSpiderTimeline x => Monad (Reflex.Class.Dynamic (SpiderTimeline x))
59 {-# INLINE (>>=) #-}
59 {-# INLINE (>>=) #-}
60 x >>= f = SpiderDynamic $ dynamicDynIdentity $ newJoinDyn $ newMapDyn (unSpiderDynamic . f) $ unSpiderDynamic x
60 x >>= f = SpiderDynamic $ dynamicDynIdentity $ newJoinDyn $ newMapDyn (unSpiderDynamic . f) $ unSpiderDynamic x
61 {-# INLINE (>>) #-}
61 {-# INLINE (>>) #-}
62− _ >> y = y
62+ (>>) = (*>)
63 {-# INLINE fail #-}
63 {-# INLINE fail #-}
64 fail _ = error "Dynamic does not support 'fail'"
64 fail _ = error "Dynamic does not support 'fail'"