Andromeda/elmskell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Onion-Location header added

Browse source
This commit is contained in:
mtgmonkey 2025-06-06 12:57:50 -04:00
parent 17ac128890
commit 40b67993e5
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Main.hs
View file

@ -101,10 +101,14 @@ serverErrorReadFile e = H.toHtml $ "document.getElementById('body').innerHTML='S
++ "';" ++ "';"
shortCache :: ActionM () shortCache :: ActionM ()
shortCache = addHeader "Cache-Control" "max-age=21600" shortCache = do
addHeader "Cache-Control" "max-age=21600"
addHeader "Onion-Location" "http://mmonkydr7laya5lsrtb4csa5tqlna62cj5qpjuvy726ti4xb3vznneid.onion"
noCache :: ActionM () noCache :: ActionM ()
noCache = addHeader "Cache-Control" "no-cache" noCache = do
addHeader "Cache-Control" "no-cache"
addHeader "Onion-Location" "http://mmonkydr7laya5lsrtb4csa5tqlna62cj5qpjuvy726ti4xb3vznneid.onion"
embedJs :: Js -> H.Html embedJs :: Js -> H.Html
embedJs js = H.script $ js embedJs js = H.script $ js