From 4e895067887f1045fd4f636817935836244d1b86 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sat, 23 Aug 2025 19:37:14 +0300
Subject: [PATCH] wip, idx compact debug

---
 hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
index 80ac56c4..a50702ca 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
@@ -165,6 +165,9 @@ ncqIndexCompactStep me@NCQStorage{..} = flip runContT pure $ callCC \exit -> do
 
   r' <- lift $ ncqFindMinPairOf me idx
 
+  debug $ "ncqIndexCompactStep " <+> pretty idx
+  debug $ "ncqIndexCompactStep found pair" <+> pretty r'
+
   (_, a, b) <- ContT $ maybe1 r' (pure False)
 
   let idx1Name = ncqGetFileName me a