cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid an error when there are no references to insert

Browse source
This commit is contained in:
Christopher Baines 2020-02-15 18:23:04 +00:00
parent 36254f98e3
commit a6e19a4102
1 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix-data-service/model/nar.scm
View file

@ -60,13 +60,7 @@
'(store_path hash_algorithm hash size system deriver) '(store_path hash_algorithm hash size system deriver)
data))) data)))
(exec-query (let ((reference-data
conn
(string-append
"
INSERT INTO nar_references (nar_id, reference)
VALUES "
(string-join
(concatenate (concatenate
(map (lambda (nar-id narinfo) (map (lambda (nar-id narinfo)
(map (lambda (reference) (map (lambda (reference)
@ -77,10 +71,17 @@ VALUES "
(quote-string reference))) (quote-string reference)))
(narinfo-references narinfo))) (narinfo-references narinfo)))
nar-ids nar-ids
narinfos)) narinfos))))
", ") (unless (null? reference-data)
(exec-query
conn
(string-append
" "
ON CONFLICT DO NOTHING")) INSERT INTO nar_references (nar_id, reference)
VALUES "
(string-join reference-data ", ")
"
ON CONFLICT DO NOTHING"))))
(exec-query (exec-query
conn conn