diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-04-10 20:27:59 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-04-12 09:47:47 +0200 |
| commit | c284321b1073e06481c63e2c061a1600fa68254d (patch) | |
| tree | 87155166131f8bdfce92dbb5eb68e66b223fa1fd /lib/file_handler | |
| parent | 9e2dbe43abe97c4e60b158e5fa52172468a2afb8 (diff) | |
Added filters expressions in the externals
Diffstat (limited to 'lib/file_handler')
| -rwxr-xr-x | lib/file_handler/dune | 1 | ||||
| -rw-r--r-- | lib/file_handler/state.ml | 4 |
2 files changed, 4 insertions, 1 deletions
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 |