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

Don't show all results on the compare package derivation page

Browse source 
By default. For comparisons involving lots of changed derivations, the page
can take too long to render.
This commit is contained in:
Christopher Baines 2020-11-20 19:33:16 +00:00
parent 7b92a6a5b3
commit 65507aaac1
2 changed files with 47 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
guix-data-service/web/compare/controller.scm
View file

@ -115,14 +115,22 @@
parsed-query-parameters)))
(('GET "compare" "package-derivations")
(let* ((parsed-query-parameters
(parse-query-parameters
request
`((base_commit ,parse-commit #:required)
(target_commit ,parse-commit #:required)
(system ,parse-system #:multi-value)
(target ,parse-target #:multi-value)
(build_status ,parse-build-status #:multi-value)
(build_change ,parse-build-change)))))
(guard-against-mutually-exclusive-query-parameters
(parse-query-parameters
request
`((base_commit ,parse-commit #:required)
(target_commit ,parse-commit #:required)
(system ,parse-system #:multi-value)
(target ,parse-target #:multi-value)
(build_status ,parse-build-status #:multi-value)
(build_change ,parse-build-change)
(after_name ,identity)
(limit_results ,parse-result-limit
#:no-default-when (all_results)
#:default 40)
(all_results ,parse-checkbox-value)))
'((limit_results all_results)))))
(render-compare/package-derivations mime-types
parsed-query-parameters)))
(('GET "compare-by-datetime" "package-derivations")
@ -137,9 +145,15 @@
(system ,parse-system #:multi-value)
(target ,parse-target #:multi-value)
(build_status ,parse-build-status #:multi-value)
(build-change ,parse-build-change)))
(build-change ,parse-build-change)
(after_name ,identity)
(limit_results ,parse-result-limit
#:no-default-when (all_results)
#:default 40)
(all_results ,parse-checkbox-value)))
'((base_commit base_datetime)
(target_commit target_datetime)))))
(target_commit target_datetime)
(limit_results all_results)))))
(render-compare-by-datetime/package-derivations mime-types
parsed-query-parameters)))
(('GET "compare" "packages")
@ -550,7 +564,9 @@
(targets (assq-ref query-parameters 'target))
(build-change (and=>
(assq-ref query-parameters 'build_change)
string->symbol)))
string->symbol))
(after-name (assq-ref query-parameters 'after_name))
(limit-results (assq-ref query-parameters 'limit_results)))
(letpar& ((data
(with-thread-postgresql-connection
(lambda (conn)
@ -560,7 +576,9 @@
(commit->revision-id conn target-commit)
#:systems systems
#:targets targets
#:build-change build-change))))
#:build-change build-change
#:after-name after-name
#:limit-results limit-results))))
(build-server-urls
(with-thread-postgresql-connection
select-build-server-urls-by-id)))
@ -623,7 +641,9 @@
(targets (assq-ref query-parameters 'target))
(build-change (and=>
(assq-ref query-parameters 'build_change)
string->symbol)))
string->symbol))
(after-name (assq-ref query-parameters 'after_name))
(limit-results (assq-ref query-parameters 'limit_results)))
(letpar&
((base-revision-details
(with-thread-postgresql-connection
@ -647,7 +667,9 @@
(first target-revision-details)
#:systems systems
#:targets targets
#:build-change build-change)))))
#:build-change build-change
#:after-name after-name
#:limit-results limit-results)))))
(let ((names-and-versions
(package-derivation-data->names-and-versions data)))
(let-values

11
guix-data-service/web/compare/html.scm
View file

@ -685,6 +685,17 @@ and target derivations")
"No base and target derivation to compare, or not
enough builds to determine a change")))
#:allow-selecting-multiple-options #f)
,(form-horizontal-control
"After name" query-parameters
#:help-text
"List packages that are alphabetically after the given name.")
,(form-horizontal-control
"Limit results" query-parameters
#:help-text "The maximum number of results to return.")
,(form-horizontal-control
"All results" query-parameters
#:type "checkbox"
#:help-text "Return all results.")
(div (@ (class "form-group form-group-lg"))
(div (@ (class "col-sm-offset-2 col-sm-10"))
(button (@ (type "submit")