From f89513266a412b929a65d522910efdb714a608b6 Mon Sep 17 00:00:00 2001 From: Akira Tempaku <paku@skyizwhite.dev> Date: Sun, 30 Mar 2025 17:14:24 +0900 Subject: [PATCH] Improve cache control --- src/renderer.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/renderer.lisp b/src/renderer.lisp index 4da0b08..5fb2e97 100644 --- a/src/renderer.lisp +++ b/src/renderer.lisp @@ -72,10 +72,9 @@ (defmethod jingle:process-response ((app jingle:app) result) (set-response-header :content-type "text/html; charset=utf-8") - (when (string= (hp-env) "dev") - (set-response-header :cache-control "no-store, no-cache, must-revalidate") - (set-response-header :pragma "no-cache") - (set-response-header :expires "0")) + (set-response-header :cache-control (if (string= (hp-env) "dev") + "private, no-store, no-cache, must-revalidate" + "public, max-age=0, s-maxage=60, stale-while-revalidate=600")) (call-next-method app (hsx:render-to-string (match result