@@ -766,7 +766,7 @@ getMergeSubscribed m = {-# SCC "getMergeSubscribed.entire" #-} do
766766 , mergeSubscribedAccum = accumRef
767767 , mergeSubscribedHeight = heightRef
768768 , mergeSubscribedSubscribers = subsRef
769− , mergeSubscribedSelf = unsafeCoerce $ map (^._1) subscribers --TODO: Does lack of strictness make this leak?
769+ , mergeSubscribedSelf = unsafeCoerce $ map (\(x, _, _, _) -> x) subscribers --TODO: Does lack of strictness make this leak?
770770 , mergeSubscribedParents = DMap.fromDistinctAscList $ map (^._4) subscribers
771771 }
772772 liftIO $ writeIORef subscribedRef subscribed