haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allowing cache on 301 redirects

Browse Source
This commit is contained in:
David L. L. Thomas 2012-11-23 13:44:31 -08:00
parent a2ad8fe704
commit 246a024dce
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Yesod/Handler.hs
View File

@ -522,11 +522,12 @@ runHandler handler mrender sroute tomr master sub upload log' =
Right c' -> return $ YARPlain status (appEndo headers []) ct c' finalSession Right c' -> return $ YARPlain status (appEndo headers []) ct c' finalSession
HCError e -> handleError e HCError e -> handleError e
HCRedirect status loc -> do HCRedirect status loc -> do
let hs = let disable_caching =
[ Header "Cache-Control" "no-cache, must-revalidate" [ Header "Cache-Control" "no-cache, must-revalidate"
, Header "Expires" "Thu, 01 Jan 1970 05:05:05 GMT" , Header "Expires" "Thu, 01 Jan 1970 05:05:05 GMT"
, Header "Location" (encodeUtf8 loc) ]
] ++ appEndo headers [] hs = (if status == H.movedPermanently301 then disable_caching else [])
++ Header "Location" (encodeUtf8 loc) : appEndo headers []
return $ YARPlain return $ YARPlain
status hs typePlain emptyContent status hs typePlain emptyContent
finalSession finalSession