objective categorical abstract machine language personal data server
Reduce public asset max-age
+8
-1
+8
-1
bin/main.ml
+8
-1
bin/main.ml
···
252
252
| None ->
253
253
Dream.empty `Not_Found
254
254
| Some asset ->
255
+
let max_age =
256
+
match Filename.extension path with
257
+
| ".woff" | ".woff2" | ".ico" ->
258
+
31536000
259
+
| _ ->
260
+
86400
261
+
in
255
262
Dream.respond
256
-
~headers:[("Cache-Control", "public, max-age=31536000")]
263
+
~headers:[("Cache-Control", Printf.sprintf "public, max-age=%d" max_age)]
257
264
asset
258
265
259
266
let static_routes =