From f7587bd818e1af34c4babc88573285289ff2ba2d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 Mar 2019 23:14:25 +0000 Subject: [PATCH] Update the JSON link on the compare/derivations page --- guix-data-service/web/view/html.scm | 24 ++++++++++++++++++++---- 1 file 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))