diff options
author | Christopher Baines <mail@cbaines.net> | 2019-03-06 22:58:05 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-03-06 22:58:05 +0000 |
commit | e656b0967be7fa9753edd498ce225b74073b87af (patch) | |
tree | 2e7aa1276de12f012d5442e317dae425a0a559a2 /guix-data-service/web/controller.scm | |
parent | 7a90afe980c39efcdb3efcafd031b6b1bdcd1216 (diff) | |
download | data-service-e656b0967be7fa9753edd498ce225b74073b87af.tar data-service-e656b0967be7fa9753edd498ce225b74073b87af.tar.gz |
Include the status of derivations
On the comparison page.
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r-- | guix-data-service/web/controller.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 3299379..145cc01 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -142,27 +142,27 @@ base-revision-id target-revision-id)))) (let ((base-derivations - (package-data-vhash->derivations + (package-data-vhash->derivations-and-build-status conn base-packages-vhash)) (target-derivations - (package-data-vhash->derivations + (package-data-vhash->derivations-and-build-status conn target-packages-vhash))) - (cond - ((eq? content-type 'json) - (render-json - `((base . ((commit . ,base-commit) - (derivations . ,base-derivations))) - (target . ((commit . ,target-commit) - (derivations . ,target-derivations)))))) - (else - (apply render-html - (compare/derivations - base-commit - target-commit - base-derivations - target-derivations))))))) + (cond + ((eq? content-type 'json) + (render-json + `((base . ((commit . ,base-commit) + (derivations . ,base-derivations))) + (target . ((commit . ,target-commit) + (derivations . ,target-derivations)))))) + (else + (apply render-html + (compare/derivations + base-commit + target-commit + base-derivations + target-derivations))))))) (define (render-compare/packages content-type conn |