paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Improve cache strategy

Browse source
This commit is contained in:
Akira Tempaku 2025-05-01 23:25:28 +09:00
parent 06cc61f247
commit 1b7b15da5f
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 3 additions and 6 deletions

9
src/renderer.lisp
View file

@ -18,12 +18,9 @@
(if (string= (hp-env) "dev")
"private, no-store"
(cond
((eq strategy :static)
"public, max-age=31536000, immutable")
((eq strategy :dynamic)
"public, max-age=60 stale-while-revalidate=86400, stale-if-error=86400")
(t
"private, no-store")))))
((eq strategy :static) "public, max-age=31536000, immutable")
((eq strategy :dynamic) "public, max-age=60")
(t "private, no-store")))))
(defmethod jingle:process-response ((app jingle:app) result)
(set-response-header :content-type "text/html; charset=utf-8")