guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
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))
(let* ((derivation-file-names
(vhash->derivation-file-names packages-vhash))
(derivation-data
(select-derivations-and-build-status
conn
#:file-names derivation-file-names
#:systems (if (null? systems) #f systems)
#:targets (if (null? targets) #f targets)
#:build-statuses (if (null? build-statuses) #f build-statuses))))
derivation-data))
(vhash->derivation-file-names packages-vhash)))
(if (null? derivation-file-names)
'()
(select-derivations-and-build-status
conn
#:file-names derivation-file-names
#:systems (if (null? systems) #f systems)
#:targets (if (null? targets) #f targets)
#:build-statuses (if (null? build-statuses) #f build-statuses)))))
(define (package-data-vhash->package-name-and-version-vhash vhash)
(vhash-fold (lambda (name details result)