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

Reduce max-age for the latest-processed-commit page

Browse source 
As this shouldn't be cached for a day.
This commit is contained in:
Christopher Baines 2024-06-12 16:54:35 +01:00
parent d74422c268
commit a9dbeb5e09
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -267,7 +267,8 @@
#:path-base path #:path-base path
#:header-text #:header-text
`("Latest processed revision for branch " `("Latest processed revision for branch "
(samp ,branch-name))) (samp ,branch-name))
#:max-age 60)
(render-no-latest-revision mime-types (render-no-latest-revision mime-types
repository-id repository-id
branch-name)))) branch-name))))

13
guix-data-service/web/revision/controller.scm
View file

@ -446,7 +446,8 @@
commit-hash commit-hash
#:key path-base #:key path-base
(header-text (header-text
`("Revision " (samp ,commit-hash)))) `("Revision " (samp ,commit-hash)))
(max-age cache-control-default-max-age))
(letpar& ((packages-count (letpar& ((packages-count
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
(count-packages-in-revision conn commit-hash))) (count-packages-in-revision conn commit-hash)))
@ -484,7 +485,10 @@
(network_dependent . ,(string=? network-dependent "t")) (network_dependent . ,(string=? network-dependent "t"))
(count . ,(string->number count)))))) (count . ,(string->number count))))))
lint-warning-counts))) lint-warning-counts)))
#:extra-headers http-headers-for-unchanging-content)) #:extra-headers
`((cache-control
. (public
(max-age . ,max-age))))))
(else (else
(render-html (render-html
#:sxml (view-revision #:sxml (view-revision
@ -496,7 +500,10 @@
lint-warning-counts lint-warning-counts
#:path-base path-base #:path-base path-base
#:header-text header-text) #: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 (define* (render-revision-system-tests mime-types
commit-hash commit-hash