diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-12 16:54:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-12 16:54:35 +0100 |
| commit | a9dbeb5e0973d7da35c53b5752d3c4b677f8d564 (patch) | |
| tree | a2ce5454d5e957e0c7f3e69c8c9cae2fff8cac29 /guix-data-service/web | |
| parent | d74422c2686890c7df26dd52104d65bfd042e7bd (diff) | |
| download | data-service-a9dbeb5e0973d7da35c53b5752d3c4b677f8d564.tar data-service-a9dbeb5e0973d7da35c53b5752d3c4b677f8d564.tar.gz | |
Reduce max-age for the latest-processed-commit page
As this shouldn't be cached for a day.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 13 |
2 files changed, 12 insertions, 4 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index b77ca1f..0d9434c 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -267,7 +267,8 @@ #:path-base path #:header-text `("Latest processed revision for branch " - (samp ,branch-name))) + (samp ,branch-name)) + #:max-age 60) (render-no-latest-revision mime-types repository-id branch-name)))) diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 114e9f4..aa7f226 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -446,7 +446,8 @@ commit-hash #:key path-base (header-text - `("Revision " (samp ,commit-hash)))) + `("Revision " (samp ,commit-hash))) + (max-age cache-control-default-max-age)) (letpar& ((packages-count (with-resource-from-pool (connection-pool) conn (count-packages-in-revision conn commit-hash))) @@ -484,7 +485,10 @@ (network_dependent . ,(string=? network-dependent "t")) (count . ,(string->number count)))))) lint-warning-counts))) - #:extra-headers http-headers-for-unchanging-content)) + #:extra-headers + `((cache-control + . (public + (max-age . ,max-age)))))) (else (render-html #:sxml (view-revision @@ -496,7 +500,10 @@ lint-warning-counts #:path-base path-base #:header-text header-text) - #:extra-headers http-headers-for-unchanging-content))))) + #:extra-headers + `((cache-control + . (public + (max-age . ,max-age))))))))) (define* (render-revision-system-tests mime-types commit-hash |