diff options
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 |