@@ -222,9 +222,9 @@ subscribe e sub = case e of
222222
223223{-# INLINE subscribeCoincidenceInner #-}
224224subscribeCoincidenceInner :: 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
226226 subInner <- liftIO $ newSubscriberCoincidenceInner subscribedUnsafe
227− subscription@(EventSubscription _ innerSubd) <- subscribe o subInner
227+ subscription@(EventSubscription _ innerSubd) <- subscribe inner subInner
228228 innerOcc <- liftIO $ readEventSubscribed innerSubd
229229 innerHeight <- liftIO $ getEventSubscribedHeight innerSubd
230230 let height = max innerHeight outerHeight