Support deleting duplicates in insert-missing-data-and-return-all-ids

This is useful when you want to pass in data with some duplicates, and get
back a list of ids, where the duplicate entries are represented by the same
id.
This commit is contained in:
Christopher Baines 2019-09-05 13:51:42 +02:00
parent 1a55022524
commit 2b5594e5d4

View file

@ -77,7 +77,8 @@
fields fields
data data
#:key #:key
sets-of-data?) sets-of-data?
delete-duplicates?)
(define field-strings (define field-strings
(map symbol->string fields)) (map symbol->string fields))
@ -180,7 +181,9 @@
existing-entries))) existing-entries)))
(if sets-of-data? (if sets-of-data?
(delete-duplicates (concatenate data)) (delete-duplicates (concatenate data))
data))) (if delete-duplicates?
(delete-duplicates data)
data))))
(new-entries (new-entries
(if (null? missing-entries) (if (null? missing-entries)
'() '()