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

Add latest revision version of the fixed output package derivations

Browse source
This commit is contained in:
Christopher Baines 2020-12-27 09:09:47 +00:00
parent f633b8edb9
commit 8d6f255646
1 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -293,6 +293,37 @@
(render-no-latest-revision mime-types (render-no-latest-revision mime-types
repository-id repository-id
branch-name)))) branch-name))))
(('GET "repository" repository-id "branch" branch-name
"latest-processed-revision" "fixed-output-package-derivations")
(letpar& ((commit-hash
(with-thread-postgresql-connection
(lambda (conn)
(latest-processed-commit-for-branch conn
repository-id
branch-name)))))
(if commit-hash
(let ((parsed-query-parameters
(guard-against-mutually-exclusive-query-parameters
(parse-query-parameters
request
`((system ,parse-system #:default "x86_64-linux")
(target ,parse-target #:default "")
(latest_build_status ,parse-build-status)
(after_name ,identity)
(limit_results ,parse-result-limit
#:no-default-when (all_results)
#:default 50)
(all_results ,parse-checkbox-value)))
'((limit_results all_results)))))
(render-revision-fixed-output-package-derivations
mime-types
commit-hash
parsed-query-parameters
#:path-base path))
(render-no-latest-revision mime-types
repository-id
branch-name))))
(('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package-derivation-outputs") (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package-derivation-outputs")
(letpar& ((commit-hash (letpar& ((commit-hash
(with-thread-postgresql-connection (with-thread-postgresql-connection