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

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 = addHeader "Cache-Control" "max-age=21600"
shortCache = do
addHeader "Cache-Control" "max-age=21600"
addHeader "Onion-Location" "http://mmonkydr7laya5lsrtb4csa5tqlna62cj5qpjuvy726ti4xb3vznneid.onion"
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.script $ js