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

Add a new page comparing the derivations of two revisions

Browse source
This commit is contained in:
Christopher Baines 2019-02-24 15:38:08 +00:00
parent a5cc703e18
commit e68142cf91
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
3 changed files with 89 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

37
guix-data-service/web/controller.scm
View file

@ -100,5 +100,42 @@
removed-packages
version-changes
other-changes)))))))))
((GET "compare" "derivations")
(let ((base-commit (-> request
request-uri
uri-query
parse-query-string
(cut assoc-ref <> "base_commit")))
(target-commit (-> request
request-uri
uri-query
parse-query-string
(cut assoc-ref <> "target_commit"))))
(let ((base-revision-id (commit->revision-id conn base-commit))
(target-revision-id (commit->revision-id conn target-commit)))
(cond
((eq? base-revision-id #f)
(apply render-html
(compare-unknown-commit base-commit)))
((eq? target-revision-id #f)
(apply render-html
(compare-unknown-commit target-commit)))
(else
(let-values
(((base-packages-vhash target-packages-vhash)
(package-data->package-data-vhashes
(package-differences-data conn
base-revision-id
target-revision-id))))
(apply render-html
(compare/derivations
base-commit
target-commit
(package-data-vhash->derivations
conn
base-packages-vhash)
(package-data-vhash->derivations
conn
target-packages-vhash)))))))))
((GET path ...)
(render-static-asset request))))