TOSQUASH: n >= c

Author: jorisdral

src/Database/LSMTree/Internal/MergeSchedule.hs

@@ -907,6 +907,7 @@ supplyMergeCredits (ScaledCredits c) (MergingRun _ _ var) = do
     mergeIsDone <- withMVar var $ \case
       CompletedMerge{} -> pure False
       (OngoingMerge _rs pvar m) -> do
+        -- n >= c
         (n, stepResult) <- Merge.steps m c
         x <- readPrimVar pvar
         writePrimVar pvar $! n + x