@@ -219,11 +219,11 @@ subscribeAndRead = unEvent
219219{-# INLINE [1] pushCheap #-}
220220pushCheap :: HasSpiderTimeline x => (a -> ComputeM x (Maybe b)) -> Event x a -> Event x b
221221pushCheap !f e = Event $ \sub -> do
222− (subscription, occ) <- subscribeAndRead e $ debugSubscriber' "push" (sub
222+ (subscription, occ) <- subscribeAndRead e $ debugSubscriber' "push" $ sub
223223 { subscriberPropagate = \a -> do
224224 mb <- f a
225225 mapM_ (subscriberPropagate sub) mb
226− })
226+ }
227227 occ' <- join <$> mapM f occ
228228 return (subscription, occ')
229229