@@ -279,8 +279,8 @@ newSubscriberPush compute subscribed = return $ Subscriber
279279newSubscriberHold :: R.Patch p => Hold x p a -> IO (Subscriber x (p a))
280280newSubscriberHold h = return $ Subscriber
281281 { subscriberPropagate = {-# SCC "traverseHold" #-} propagateSubscriberHold h
282− , subscriberInvalidateHeight = \old -> return ()
283− , subscriberRecalculateHeight = \new -> return ()
282+ , subscriberInvalidateHeight = \_ -> return ()
283+ , subscriberRecalculateHeight = \_ -> return ()
284284 }
285285
286286newSubscriberMerge :: GCompare k => k a -> MergeSubscribed x k -> IO (Subscriber x a)
@@ -321,8 +321,8 @@ newSubscriberMergeChange subscribed = return $ Subscriber
321321 { subscriberPropagate = \a -> {-# SCC "traverseMergeChange" #-} do
322322 tracePropagate $ "SubscriberMerge" <> showNodeId subscribed
323323 defer $ SomeMergeUpdate a subscribed
324− , subscriberInvalidateHeight = \old -> return ()
325− , subscriberRecalculateHeight = \new -> return ()
324+ , subscriberInvalidateHeight = \_ -> return ()
325+ , subscriberRecalculateHeight = \_ -> return ()
326326 }
327327
328328newSubscriberFan :: GCompare k => FanSubscribed x k -> IO (Subscriber x (DMap k Identity))
@@ -357,7 +357,7 @@ newSubscriberSwitch subscribed = return $ Subscriber
357357 liftIO $ writeIORef (switchSubscribedOccurrence subscribed) $ Just a
358358 scheduleClear $ switchSubscribedOccurrence subscribed
359359 propagate a $ switchSubscribedSubscribers subscribed
360− , subscriberInvalidateHeight = \old -> do
360+ , subscriberInvalidateHeight = \_ -> do
361361 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberSwitch" <> showNodeId subscribed
362362 oldHeight <- readIORef $ switchSubscribedHeight subscribed
363363 when (oldHeight /= invalidHeight) $ do
@@ -391,11 +391,11 @@ newSubscriberCoincidenceOuter subscribed = return $ Subscriber
391391 liftIO $ writeIORef (coincidenceSubscribedOccurrence subscribed) occ
392392 scheduleClear $ coincidenceSubscribedOccurrence subscribed
393393 propagate o $ coincidenceSubscribedSubscribers subscribed
394− , subscriberInvalidateHeight = \old -> do
394+ , subscriberInvalidateHeight = \_ -> do
395395 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed
396396 invalidateCoincidenceHeight subscribed
397397 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed <> " done"
398− , subscriberRecalculateHeight = \new -> do
398+ , subscriberRecalculateHeight = \_ -> do
399399 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed
400400 recalculateCoincidenceHeight subscribed
401401 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed <> " done"
@@ -412,11 +412,11 @@ newSubscriberCoincidenceInner subscribed = return $ Subscriber
412412 liftIO $ writeIORef (coincidenceSubscribedOccurrence subscribed) $ Just a
413413 scheduleClear $ coincidenceSubscribedOccurrence subscribed
414414 propagate a $ coincidenceSubscribedSubscribers subscribed
415− , subscriberInvalidateHeight = \old -> do
415+ , subscriberInvalidateHeight = \_ -> do
416416 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed
417417 invalidateCoincidenceHeight subscribed
418418 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed <> " done"
419− , subscriberRecalculateHeight = \new -> do
419+ , subscriberRecalculateHeight = \_ -> do
420420 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed
421421 recalculateCoincidenceHeight subscribed
422422 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed <> " done"