From 5fcabe95f2c10477e6a77efb5bb4bbd0ac57a5a0 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 24 Mar 2019 11:59:44 +0000 Subject: [PATCH] Handle 0 derivations in package-data-vhash->derivations-and-build-status --- guix-data-service/comparison.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index fcb1dee..1a12005 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -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)