diff options
| -rw-r--r-- | guix-data-service/model/nar.scm | 39 |
1 files changed, 20 insertions, 19 deletions
diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index 7e27034..4c5d070 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -60,27 +60,28 @@ '(store_path hash_algorithm hash size system deriver) data))) - (exec-query - conn - (string-append - " + (let ((reference-data + (concatenate + (map (lambda (nar-id narinfo) + (map (lambda (reference) + (simple-format + #f + "(~A, ~A)" + nar-id + (quote-string reference))) + (narinfo-references narinfo))) + nar-ids + narinfos)))) + (unless (null? reference-data) + (exec-query + conn + (string-append + " INSERT INTO nar_references (nar_id, reference) VALUES " - (string-join - (concatenate - (map (lambda (nar-id narinfo) - (map (lambda (reference) - (simple-format - #f - "(~A, ~A)" - nar-id - (quote-string reference))) - (narinfo-references narinfo))) - nar-ids - narinfos)) - ", ") - " -ON CONFLICT DO NOTHING")) + (string-join reference-data ", ") + " +ON CONFLICT DO NOTHING")))) (exec-query conn |