@@ -222,9 +222,9 @@ subscribe e sub = case e of
223{-# INLINE subscribeCoincidenceInner #-}
223{-# INLINE subscribeCoincidenceInner #-}
224subscribeCoincidenceInner :: CanSubscribe x m => Event a -> Height -> CoincidenceSubscribed a -> m (Maybe a, Height, EventSubscribed a)
224subscribeCoincidenceInner :: CanSubscribe x m => Event a -> Height -> CoincidenceSubscribed a -> m (Maybe a, Height, EventSubscribed a)
225−subscribeCoincidenceInner o outerHeight subscribedUnsafe = do
225+subscribeCoincidenceInner inner outerHeight subscribedUnsafe = do
226 subInner <- liftIO $ newSubscriberCoincidenceInner subscribedUnsafe
226 subInner <- liftIO $ newSubscriberCoincidenceInner subscribedUnsafe
227− subscription@(EventSubscription _ innerSubd) <- subscribe o subInner
227+ subscription@(EventSubscription _ innerSubd) <- subscribe inner subInner
228 innerOcc <- liftIO $ readEventSubscribed innerSubd
228 innerOcc <- liftIO $ readEventSubscribed innerSubd
229 innerHeight <- liftIO $ getEventSubscribedHeight innerSubd
229 innerHeight <- liftIO $ getEventSubscribedHeight innerSubd
230 let height = max innerHeight outerHeight
230 let height = max innerHeight outerHeight