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

Fix the JSON output for the derivation history page

Browse source
This commit is contained in:
Christopher Baines 2019-11-26 07:17:24 +00:00
parent 32e1fee7ea
commit af1324855e
2 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

32
guix-data-service/web/repository/controller.scm
View file

@ -124,22 +124,22 @@
mime-types) mime-types)
((application/json) ((application/json)
(render-json (render-json
`((versions . ,(list->vector `((derivations . ,(list->vector
(map (match-lambda (map (match-lambda
((package-version derivation-file-name ((package-version derivation-file-name
first-guix-revision-commit first-guix-revision-commit
first-datetime first-datetime
last-guix-revision-commit last-guix-revision-commit
last-datetime) last-datetime)
`((version . ,package-version) `((version . ,package-version)
(derivation . ,derivation-file-name) (derivation . ,derivation-file-name)
(first_revision (first_revision
. ((commit . ,first-guix-revision-commit) . ((commit . ,first-guix-revision-commit)
(datetime . ,first-datetime))) (datetime . ,first-datetime)))
(last_revision (last_revision
. ((commit . ,last-guix-revision-commit) . ((commit . ,last-guix-revision-commit)
(datetime . ,last-datetime)))))) (datetime . ,last-datetime))))))
package-versions)))))) package-derivations))))))
(else (else
(render-html (render-html
#:sxml (view-branch-package-derivations #:sxml (view-branch-package-derivations

2
guix-data-service/web/repository/html.scm
View file

@ -318,7 +318,7 @@
"/repository/" git-repository-id "/repository/" git-repository-id
"/branch/" branch-name "/branch/" branch-name
"/package/" package-name "/package/" package-name
".json"))) "/derivation-history.json")))
"View JSON") "View JSON")
(h1 (@ (style "white-space: nowrap;")) (h1 (@ (style "white-space: nowrap;"))
(samp ,package-name)))) (samp ,package-name))))