@@ -219,11 +219,11 @@ subscribeAndRead = unEvent
219{-# INLINE [1] pushCheap #-}
219{-# INLINE [1] pushCheap #-}
220pushCheap :: HasSpiderTimeline x => (a -> ComputeM x (Maybe b)) -> Event x a -> Event x b
220pushCheap :: HasSpiderTimeline x => (a -> ComputeM x (Maybe b)) -> Event x a -> Event x b
221pushCheap !f e = Event $ \sub -> do
221pushCheap !f e = Event $ \sub -> do
222− (subscription, occ) <- subscribeAndRead e $ debugSubscriber' "push" (sub
222+ (subscription, occ) <- subscribeAndRead e $ debugSubscriber' "push" $ sub
223 { subscriberPropagate = \a -> do
223 { subscriberPropagate = \a -> do
224 mb <- f a
224 mb <- f a
225 mapM_ (subscriberPropagate sub) mb
225 mapM_ (subscriberPropagate sub) mb
227 occ' <- join <$> mapM f occ
227 occ' <- join <$> mapM f occ
228 return (subscription, occ')
228 return (subscription, occ')