@@ -1837,7 +1837,6 @@ removeMergeHeight :: Height -> MergeSubscribed k -> IO ()
1837removeMergeHeight oldParentHeight subscribed = do
1837removeMergeHeight oldParentHeight subscribed = do
1838 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
1838 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
1839 let newHeights = heightBagRemove oldParentHeight oldHeights
1839 let newHeights = heightBagRemove oldParentHeight oldHeights
1840− putStrLn $ "removeMergeHeight " <> showNodeId subscribed <> ": " <> show oldHeights <> " => " <> show newHeights
1841 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
1840 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
1843invalidateMergeHeight :: MergeSubscribed k -> IO ()
1842invalidateMergeHeight :: MergeSubscribed k -> IO ()
@@ -1852,14 +1851,12 @@ addMergeHeight :: Height -> MergeSubscribed k -> IO ()
1852addMergeHeight newParentHeight subscribed = do
1851addMergeHeight newParentHeight subscribed = do
1853 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
1852 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
1854 let newHeights = heightBagAdd newParentHeight oldHeights
1853 let newHeights = heightBagAdd newParentHeight oldHeights
1855− putStrLn $ "addMergeHeight " <> showNodeId subscribed <> ": " <> show oldHeights <> " => " <> show newHeights
1856 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
1854 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
1858revalidateMergeHeight :: MergeSubscribed k -> IO ()
1856revalidateMergeHeight :: MergeSubscribed k -> IO ()
1859revalidateMergeHeight subscribed = do
1857revalidateMergeHeight subscribed = do
1860 heights <- readIORef $ mergeSubscribedHeightBag subscribed
1858 heights <- readIORef $ mergeSubscribedHeightBag subscribed
1861 parents <- readIORef $ mergeSubscribedParents subscribed
1859 parents <- readIORef $ mergeSubscribedParents subscribed
1862− putStrLn $ "revalidateMergeHeight " <> showNodeId subscribed <> ": " <> show (heightBagSize heights, DMap.size parents)
1863 -- When the number of heights in the bag reaches the number of parents, we should have a valid height
1860 -- When the number of heights in the bag reaches the number of parents, we should have a valid height
1864 when (heightBagSize heights == DMap.size parents) $ do
1861 when (heightBagSize heights == DMap.size parents) $ do
1865 let height = succHeight $ heightBagMax heights
1862 let height = succHeight $ heightBagMax heights