From 41a7dfe3917eed2a62a3d3adddce140905dc5d13 Mon Sep 17 00:00:00 2001
From: Joris Dral <joris@well-typed.com>
Date: Mon, 2 Jun 2025 14:49:26 +0200
Subject: [PATCH] Remove internal trace types from the public API

They are hidden behind a debug flag now.
---
 src/Database/LSMTree.hs | 24 ++++--------------------
 1 file changed, 4 insertions(+), 20 deletions(-)

diff --git a/src/Database/LSMTree.hs b/src/Database/LSMTree.hs
index 8eedd9c3b..8afe922e4 100644
--- a/src/Database/LSMTree.hs
+++ b/src/Database/LSMTree.hs
@@ -189,19 +189,9 @@ module Database.LSMTree (
   SessionTrace (..),
   TableTrace (..),
   CursorTrace (..),
-  MergeTrace (..),
   SessionId (..),
   TableId (..),
   CursorId (..),
-  AtLevel (..),
-  LevelNo (..),
-  NumEntries (..),
-  RunNumber (..),
-  MergePolicyForLevel (..),
-  LevelMergeType (..),
-  RunParams (..),
-  RunDataCaching (..),
-  IndexType (..),
 ) where
 
 import           Control.Concurrent.Class.MonadMVar.Strict (MonadMVar)
@@ -227,24 +217,18 @@ import qualified Database.LSMTree.Internal.BlobRef as Internal
 import           Database.LSMTree.Internal.Config
                      (BloomFilterAlloc (AllocFixed, AllocRequestFPR),
                      DiskCachePolicy (..), FencePointerIndexType (..),
-                     LevelNo (..), MergeBatchSize (..), MergePolicy (..),
-                     MergeSchedule (..), SizeRatio (..), TableConfig (..),
-                     WriteBufferAlloc (..), defaultTableConfig)
+                     MergeBatchSize (..), MergePolicy (..), MergeSchedule (..),
+                     SizeRatio (..), TableConfig (..), WriteBufferAlloc (..),
+                     defaultTableConfig)
 import           Database.LSMTree.Internal.Config.Override
                      (TableConfigOverride (..), noTableConfigOverride)
-import           Database.LSMTree.Internal.Entry (NumEntries (..))
 import qualified Database.LSMTree.Internal.Entry as Entry
-import           Database.LSMTree.Internal.Merge (LevelMergeType (..))
-import           Database.LSMTree.Internal.MergeSchedule (AtLevel (..),
-                     MergePolicyForLevel (..), MergeTrace (..))
 import           Database.LSMTree.Internal.Paths (SnapshotName,
                      isValidSnapshotName, toSnapshotName)
 import           Database.LSMTree.Internal.Range (Range (..))
 import           Database.LSMTree.Internal.RawBytes (RawBytes (..))
-import           Database.LSMTree.Internal.RunBuilder (IndexType (..),
-                     RunDataCaching (..), RunParams (..))
 import           Database.LSMTree.Internal.RunNumber (CursorId (..),
-                     RunNumber (..), TableId (..))
+                     TableId (..))
 import qualified Database.LSMTree.Internal.Serialise as Internal
 import           Database.LSMTree.Internal.Serialise.Class (SerialiseKey (..),
                      SerialiseKeyOrderPreserving, SerialiseValue (..),