voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

hbs2-peer, cache control tune

This commit is contained in:
voidlizard 2025-02-10 15:53:12 +03:00
parent 78c826f1a0
commit c093c9237b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-peer/app/HttpWorker.hs
View File

@ -177,14 +177,14 @@ httpWorker (PeerConfig syn) pmeta = do
get "/ref/:key" do
void $ flip runContT pure do
ref <- lift (pathParam @String "key")
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=0"
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=300"
handleRef Nothing (Left ref)
get "/ref/:key/:part" do
void $ flip runContT pure do
ref <- lift (pathParam @String "key")
part <- lift (pathParam @Text "part")
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=0"
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=300"
handleRef (Just part) (Left ref)
-- TODO: define-parsable-instance-for-our-types
@ -198,7 +198,7 @@ httpWorker (PeerConfig syn) pmeta = do
void $ flip runContT pure do
ref <- lift (pathParam @String "hash")
part <- lift (pathParam @Text "part")
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=0"
lift $ addHeader "Cache-Control" "public, must-revalidate, max-age=300"
handleRef (Just part) (Right ref)
get "/cat/:hash" do