guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Store output of most-recent-commits-for-branch in a local variable

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela lura 2020-03-29 09:33:31 +02:00 committed by Christopher Baines
parent 776d0462e9
commit 6ee9a674cd
1 changed files with 32 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -70,44 +70,38 @@
`((after_date ,parse-datetime) `((after_date ,parse-datetime)
(before_date ,parse-datetime) (before_date ,parse-datetime)
(limit_results ,parse-result-limit #:default 100))))) (limit_results ,parse-result-limit #:default 100)))))
(case (most-appropriate-mime-type (let ((revisions
'(application/json text/html) (most-recent-commits-for-branch
mime-types) conn
((application/json) (string->number repository-id)
(render-json branch-name
`((revisions #:limit (assq-ref parsed-query-parameters 'limit_results)
. ,(list->vector #:after-date (assq-ref parsed-query-parameters
(map (match-lambda 'after_date)
((date commit-hash _ _) #:before-date (assq-ref parsed-query-parameters
`((date . ,date) 'before_date))))
(commit-hash . ,commit-hash)))) (case (most-appropriate-mime-type
(most-recent-commits-for-branch '(application/json text/html)
conn mime-types)
(string->number repository-id) ((application/json)
branch-name (render-json
#:limit (assq-ref parsed-query-parameters 'limit_results) `((revisions
#:after-date (assq-ref parsed-query-parameters . ,(list->vector
'after_date) (map (match-lambda
#:before-date (assq-ref parsed-query-parameters ((date commit-hash _ _)
'before_date)))))))) `((date . ,date)
(else (commit-hash . ,commit-hash))))
(render-html revisions))))))
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) (else
(view-branch repository-id (render-html
branch-name parsed-query-parameters '()) #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
(view-branch (view-branch repository-id
repository-id branch-name parsed-query-parameters '())
branch-name (view-branch
parsed-query-parameters repository-id
(most-recent-commits-for-branch branch-name
conn parsed-query-parameters
(string->number repository-id) revisions))))))))
branch-name
#:limit (assq-ref parsed-query-parameters 'limit_results)
#:after-date (assq-ref parsed-query-parameters
'after_date)
#:before-date (assq-ref parsed-query-parameters
'before_date)))))))))
(('GET "repository" repository-id "branch" branch-name "package" package-name) (('GET "repository" repository-id "branch" branch-name "package" package-name)
(let ((package-versions (let ((package-versions
(package-versions-for-branch conn (package-versions-for-branch conn