cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle query parameter errors on the fix derivation page

Browse source
This commit is contained in:
Christopher Baines 2025-11-05 08:42:39 +00:00
parent 0113843a72
commit eb75964e76
2 changed files with 183 additions and 180 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/web/compare/controller.scm
View file

@ -628,7 +628,7 @@
(render-html (render-html
#:sxml (compare/derivation #:sxml (compare/derivation
query-parameters query-parameters
'())))) #f))))
(let ((base-derivation (assq-ref query-parameters 'base_derivation)) (let ((base-derivation (assq-ref query-parameters 'base_derivation))
(target-derivation (assq-ref query-parameters 'target_derivation))) (target-derivation (assq-ref query-parameters 'target_derivation)))

7
guix-data-service/web/compare/html.scm
View file

@ -483,7 +483,9 @@
"View JSON"))))) "View JSON")))))
(div (div
(@ (class "row")) (@ (class "row"))
(div ,@(if
data
`((div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
(h2 "Outputs") (h2 "Outputs")
,@(let ((outputs (assq-ref data 'outputs))) ,@(let ((outputs (assq-ref data 'outputs)))
@ -667,7 +669,8 @@
(list target (list target
(display-possible-store-item (display-possible-store-item
target-value)))))))))))) target-value))))))))))))
environment-variables)))))))))) environment-variables))))))
'()))))))
(define* (compare/package-derivations query-parameters (define* (compare/package-derivations query-parameters
mode mode