@@ -1837,7 +1837,6 @@ removeMergeHeight :: Height -> MergeSubscribed k -> IO ()
18371837removeMergeHeight oldParentHeight subscribed = do
18381838 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
18391839 let newHeights = heightBagRemove oldParentHeight oldHeights
1840− putStrLn $ "removeMergeHeight " <> showNodeId subscribed <> ": " <> show oldHeights <> " => " <> show newHeights
18411840 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
18421841
18431842invalidateMergeHeight :: MergeSubscribed k -> IO ()
@@ -1852,14 +1851,12 @@ addMergeHeight :: Height -> MergeSubscribed k -> IO ()
18521851addMergeHeight newParentHeight subscribed = do
18531852 oldHeights <- readIORef $ mergeSubscribedHeightBag subscribed
18541853 let newHeights = heightBagAdd newParentHeight oldHeights
1855− putStrLn $ "addMergeHeight " <> showNodeId subscribed <> ": " <> show oldHeights <> " => " <> show newHeights
18561854 writeIORef (mergeSubscribedHeightBag subscribed) $! newHeights
18571855
18581856revalidateMergeHeight :: MergeSubscribed k -> IO ()
18591857revalidateMergeHeight subscribed = do
18601858 heights <- readIORef $ mergeSubscribedHeightBag subscribed
18611859 parents <- readIORef $ mergeSubscribedParents subscribed
1862− putStrLn $ "revalidateMergeHeight " <> showNodeId subscribed <> ": " <> show (heightBagSize heights, DMap.size parents)
18631860 -- When the number of heights in the bag reaches the number of parents, we should have a valid height
18641861 when (heightBagSize heights == DMap.size parents) $ do
18651862 let height = succHeight $ heightBagMax heights