diff --git a/src/Main.hs b/src/Main.hs index d9611cf..9f06228 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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