diff --git a/yesod-core/Yesod/Handler.hs b/yesod-core/Yesod/Handler.hs index 493d7f0d..226c10a4 100644 --- a/yesod-core/Yesod/Handler.hs +++ b/yesod-core/Yesod/Handler.hs @@ -522,7 +522,11 @@ runHandler handler mrender sroute tomr master sub upload log' = Right c' -> return $ YARPlain status (appEndo headers []) ct c' finalSession HCError e -> handleError e HCRedirect status loc -> do - let hs = Header "Location" (encodeUtf8 loc) : appEndo headers [] + let hs = + [ Header "Cache-Control" "no-cache, must-revalidate" + , Header "Expires" "Thu, 01 Jan 1970 05:05:05 GMT" + , Header "Location" (encodeUtf8 loc) + ] ++ appEndo headers [] return $ YARPlain status hs typePlain emptyContent finalSession