diff options
author | Christopher Baines <mail@cbaines.net> | 2019-03-17 23:14:25 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-03-17 23:14:25 +0000 |
commit | f7587bd818e1af34c4babc88573285289ff2ba2d (patch) | |
tree | 75742cc70713769d236d5a5699dbbd48337a6050 /guix-data-service | |
parent | f4c159d9de63e46ab820dd7f5cb5691be5dff9de (diff) | |
download | data-service-f7587bd818e1af34c4babc88573285289ff2ba2d.tar data-service-f7587bd818e1af34c4babc88573285289ff2ba2d.tar.gz |
Update the JSON link on the compare/derivations page
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/web/view/html.scm | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 07f5f1a..ecc0738 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -736,10 +736,26 @@ target-derivations systems targets - build-statues) + build-statuses) (define query-params - (string-append "?base_commit=" base-commit - "&target_commit=" target-commit)) + (string-append + "?" + (string-join + `(,(string-append "base_commit=" base-commit) + ,(string-append "target_commit=" target-commit) + ,@(map (lambda (system) + (string-append + "system=" system)) + systems) + ,@(map (lambda (target) + (string-append + "target=" target)) + targets) + ,@(map (lambda (build_status) + (string-append + "build_status=" build_status)) + build-statuses)) + "&"))) (layout #:extra-headers @@ -847,7 +863,7 @@ (multiple #t) (name "build_status")) ,@(map (lambda (build-status) - `(option (@ ,@(if (member build-status build-statues) + `(option (@ ,@(if (member build-status build-statuses) '((selected "")) '()) (value ,build-status)) |