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

Only update expires time once per hour

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-23 12:01:27 +02:00
parent d6e5469179
commit 0af76fa97b
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Core/Internal/Run.hs
View File

@ -295,7 +295,9 @@ yesodRunner handler' YesodRunnerEnv {..} route req sendResponse
getGetMaxExpires :: MonadIO m => m (IO Text)
getGetMaxExpires = liftIO $ mkAutoUpdate defaultUpdateSettings
{ updateAction = liftM (formatRFC1123 . addUTCTime (60*60*24*365)) getCurrentTime }
{ updateAction = liftM (formatRFC1123 . addUTCTime (60*60*24*365)) getCurrentTime
, updateFreq = 60 * 60 * 1000000 -- ^ Update once per hour
}
yesodRender :: Yesod y
=> y

2
yesod-core/changelog.md
View File

@ -1,3 +1,5 @@
__1.4.4.2__ `neverExpires` uses dates one year in the future (instead of in 2037).
__1.4.4.1__ Improvements to etag/if-none-match support #868 #869
__1.4.4__ Add the `notModified` and `setEtag` functions.

2
yesod-core/yesod-core.cabal
View File

@ -1,5 +1,5 @@
name: yesod-core
version: 1.4.4.1
version: 1.4.4.2
license: MIT
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>