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/view | |
| 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/view')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index ebf2c20..d998c79 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -326,13 +326,15 @@ (@ (class "table")) (thead (tr - (th (@ (class "col-md-12")) "File Name"))) + (th (@ (class "col-md-8")) "File Name") + (th (@ (class "col-md-4")) "Build status"))) (tbody ,@(map (match-lambda - ((id file-name) + ((id file-name build-status) `(tr - (td ,file-name)))) + (td ,file-name) + (td ,build-status)))) base-derivations)))) (div (@ (class "row")) @@ -344,13 +346,15 @@ (@ (class "table")) (thead (tr - (th (@ (class "col-md-12")) "File Name"))) + (th (@ (class "col-md-8")) "File Name") + (th (@ (class "col-md-4")) "Build status"))) (tbody ,@(map (match-lambda - ((id file-name) + ((id file-name build-status) `(tr - (td ,file-name)))) + (td ,file-name) + (td ,build-status)))) target-derivations)))))))) (define (compare/packages base-commit |