mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Avoid an error when there are no references to insert
This commit is contained in:
parent
36254f98e3
commit
a6e19a4102
|
@ -60,27 +60,28 @@
|
||||||
'(store_path hash_algorithm hash size system deriver)
|
'(store_path hash_algorithm hash size system deriver)
|
||||||
data)))
|
data)))
|
||||||
|
|
||||||
(exec-query
|
(let ((reference-data
|
||||||
conn
|
(concatenate
|
||||||
(string-append
|
(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)
|
INSERT INTO nar_references (nar_id, reference)
|
||||||
VALUES "
|
VALUES "
|
||||||
(string-join
|
(string-join reference-data ", ")
|
||||||
(concatenate
|
"
|
||||||
(map (lambda (nar-id narinfo)
|
ON CONFLICT DO NOTHING"))))
|
||||||
(map (lambda (reference)
|
|
||||||
(simple-format
|
|
||||||
#f
|
|
||||||
"(~A, ~A)"
|
|
||||||
nar-id
|
|
||||||
(quote-string reference)))
|
|
||||||
(narinfo-references narinfo)))
|
|
||||||
nar-ids
|
|
||||||
narinfos))
|
|
||||||
", ")
|
|
||||||
"
|
|
||||||
ON CONFLICT DO NOTHING"))
|
|
||||||
|
|
||||||
(exec-query
|
(exec-query
|
||||||
conn
|
conn
|
||||||
|
|
Loading…
Reference in a new issue