Include the status of derivations

On the comparison page.

1 files changed, 15 insertions, 0 deletions

diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm
index 3fc6215..e3190ad 100644
--- a/guix-data-service/comparison.scm
+++ b/guix-data-service/comparison.scm
@@ -8,6 +8,7 @@
   #:export (package-data->package-data-vhashes
             package-differences-data
             package-data-vhash->derivations
+            package-data-vhash->derivations-and-build-status
             package-data-vhashes->new-packages
             package-data-vhashes->removed-packages
             package-data-version-changes
@@ -61,6 +62,20 @@ ORDER BY base_packages.name, base_packages.version, target_packages.name, target
           (select-derivations-by-id conn derivation-ids)))
     derivation-data))
 
+(define (package-data-vhash->derivations-and-build-status conn packages-vhash)
+  (define (vhash->derivation-ids vhash)
+    (vhash-fold (lambda (key value result)
+                  (cons (third value)
+                        result))
+                '()
+                vhash))
+
+  (let* ((derivation-ids
+          (vhash->derivation-ids packages-vhash))
+         (derivation-data
+          (select-derivations-and-build-status-by-id conn derivation-ids)))
+    derivation-data))
+
 (define (package-data-vhash->package-name-and-version-vhash vhash)
   (vhash-fold (lambda (name details result)
                 (vhash-cons (cons name (first details))