Commit 39d214d7 authored by Dave Cooper's avatar Dave Cooper

added cache directives for publishing of gwl static resources.

parent b9632d10
...@@ -38,6 +38,7 @@ ...@@ -38,6 +38,7 @@
(defun publish-statics (server) (defun publish-statics (server)
(let ((destination (ensure-static-relative-pathname ""))) (let ((destination (ensure-static-relative-pathname "")))
(when destination (publish-directory (when destination (publish-directory
:headers (list (cons :cache-control "public, max-age=3600, must-revalidate"))
:prefix "/static/" :prefix "/static/"
:server server :server server
:destination (namestring destination))))) :destination (namestring destination)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment