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

Handle derivations with no sources

Browse source
This commit is contained in:
Christopher Baines 2023-11-05 18:49:23 +00:00
parent 341eb4a283
commit 4f1ae74d2f
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/model/derivation.scm
View file

@ -1652,8 +1652,9 @@ LIMIT $1"
(simple-format (simple-format
#t "debug: insert-missing-derivations: inserting sources\n") #t "debug: insert-missing-derivations: inserting sources\n")
(for-each (lambda (derivation-id derivation) (for-each (lambda (derivation-id derivation)
(let* ((sources (derivation-sources derivation)) (let ((sources (derivation-sources derivation)))
(sources-ids (unless (null? sources)
(let ((sources-ids
(insert-derivation-sources conn (insert-derivation-sources conn
derivation-id derivation-id
sources))) sources)))
@ -1662,7 +1663,7 @@ LIMIT $1"
id id
source-file)) source-file))
sources-ids sources-ids
sources))) sources)))))
derivation-ids derivation-ids
derivations) derivations)