swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

use Cache-Control for assets

Browse source
This commit is contained in:
Swrup 2022-04-04 16:57:08 +02:00
parent 9ca17a8840
commit a6edfce5d8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/permap.ml
View file

@ -11,7 +11,8 @@ let not_logged_in redirect request =
let asset_loader _root path _request = let asset_loader _root path _request =
match Content.read ("assets/" ^ path) with match Content.read ("assets/" ^ path) with
| None -> Dream.empty `Not_Found | None -> Dream.empty `Not_Found
| Some asset -> Dream.respond asset | Some asset ->
Dream.respond ~headers:[ ("Cache-Control", "max-age=151200") ] asset
let page name request = let page name request =
match Content.read (name ^ ".md") with match Content.read (name ^ ".md") with