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

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

@ -70,6 +70,16 @@
`((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)))))
(let ((revisions
(most-recent-commits-for-branch
conn
(string->number repository-id)
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))))
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)
@ -81,15 +91,7 @@
((date commit-hash _ _) ((date commit-hash _ _)
`((date . ,date) `((date . ,date)
(commit-hash . ,commit-hash)))) (commit-hash . ,commit-hash))))
(most-recent-commits-for-branch revisions))))))
conn
(string->number repository-id)
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))))))))
(else (else
(render-html (render-html
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
@ -99,15 +101,7 @@
repository-id repository-id
branch-name branch-name
parsed-query-parameters parsed-query-parameters
(most-recent-commits-for-branch revisions))))))))
conn
(string->number repository-id)
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