diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -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)) |