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/state.ml | |
| parent | 9e2dbe43abe97c4e60b158e5fa52172468a2afb8 (diff) | |
Added filters expressions in the externals
Diffstat (limited to 'lib/file_handler/state.ml')
| -rw-r--r-- | lib/file_handler/state.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |