diff options
author | Christopher Baines <mail@cbaines.net> | 2019-10-12 17:30:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-10-12 17:30:01 +0100 |
commit | 30051a3740b41f1a171c64a158b1e915396fa9bb (patch) | |
tree | d8b6f9260eafd7d011bc51651b8eed3bbcf75236 /guix-data-service/web/view | |
parent | c9c7666b4987b73912cbbdaa9fdaa2a813e9646d (diff) | |
download | data-service-30051a3740b41f1a171c64a158b1e915396fa9bb.tar data-service-30051a3740b41f1a171c64a158b1e915396fa9bb.tar.gz |
Switch the compare/packages page to use parse-query-parameters
Diffstat (limited to 'guix-data-service/web/view')
-rw-r--r-- | guix-data-service/web/view/html.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 1a4c984..c2c79a7 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -1972,10 +1972,15 @@ (cdr data-columns)))))) (vector->list derivation-changes))))))))))) -(define (compare/packages base-commit - target-commit +(define (compare/packages query-parameters base-packages-vhash target-packages-vhash) + (define base-commit + (assq-ref query-parameters 'base_commit)) + + (define target-commit + (assq-ref query-parameters 'target_commit)) + (define query-params (string-append "?base_commit=" base-commit "&target_commit=" target-commit)) |