diff options
| -rw-r--r-- | guix-data-service/model/utils.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index e636988..f569080 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -77,7 +77,8 @@ fields data #:key - sets-of-data?) + sets-of-data? + delete-duplicates?) (define field-strings (map symbol->string fields)) @@ -180,7 +181,9 @@ existing-entries))) (if sets-of-data? (delete-duplicates (concatenate data)) - data))) + (if delete-duplicates? + (delete-duplicates data) + data)))) (new-entries (if (null? missing-entries) '() |