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

Handle 0 derivations in package-data-vhash->derivations-and-build-status

Browse source
This commit is contained in:
Christopher Baines 2019-03-24 11:59:44 +00:00
parent daa2790f59
commit 5fcabe95f2
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/comparison.scm
View file

@ -109,15 +109,15 @@ ORDER BY base_packages.name DESC, base_packages.version, target_packages.name, t
vhash)) vhash))
(let* ((derivation-file-names (let* ((derivation-file-names
(vhash->derivation-file-names packages-vhash)) (vhash->derivation-file-names packages-vhash)))
(derivation-data (if (null? derivation-file-names)
'()
(select-derivations-and-build-status (select-derivations-and-build-status
conn conn
#:file-names derivation-file-names #:file-names derivation-file-names
#:systems (if (null? systems) #f systems) #:systems (if (null? systems) #f systems)
#:targets (if (null? targets) #f targets) #:targets (if (null? targets) #f targets)
#:build-statuses (if (null? build-statuses) #f build-statuses)))) #:build-statuses (if (null? build-statuses) #f build-statuses)))))
derivation-data))
(define (package-data-vhash->package-name-and-version-vhash vhash) (define (package-data-vhash->package-name-and-version-vhash vhash)
(vhash-fold (lambda (name details result) (vhash-fold (lambda (name details result)