From c284321b1073e06481c63e2c061a1600fa68254d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 10 Apr 2025 20:27:59 +0200
Subject: Added filters expressions in the externals

---
 lib/file_handler/dune     | 1 +
 lib/file_handler/state.ml | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/file_handler')

diff --git a/lib/file_handler/dune b/lib/file_handler/dune
index 80b2ff6..6d5def0 100755
--- a/lib/file_handler/dune
+++ b/lib/file_handler/dune
@@ -9,6 +9,7 @@
    core
    lwt
    lwt.unix
+   ppx_deriving.runtime
    helpers
    importDataTypes
    importContainers
diff --git a/lib/file_handler/state.ml b/lib/file_handler/state.ml
index 7cf57da..e073fd3 100644
--- a/lib/file_handler/state.ml
+++ b/lib/file_handler/state.ml
@@ -151,7 +151,9 @@ let clear :
     ImporterSyntax.t ->
     unit ImportSQL.Db.result =
  fun ~log_error db mapping conf ->
-  ImportSQL.Db.clear_duplicates db (A.table mapping) (A.keys mapping)
+  let table = A.table mapping in
+  let is_root = ImportDataTypes.Table.equal table conf.source in
+  ImportSQL.Db.clear_duplicates ~is_root db table (A.keys mapping)
     ~f:(fun values ->
       let line =
         match snd @@ Array.get values 0 with
-- 
cgit v1.2.3