diff --git a/yesod-core/Yesod/Core/Internal/Run.hs b/yesod-core/Yesod/Core/Internal/Run.hs index a8fe383c..c3d6bcab 100644 --- a/yesod-core/Yesod/Core/Internal/Run.hs +++ b/yesod-core/Yesod/Core/Internal/Run.hs @@ -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 diff --git a/yesod-core/changelog.md b/yesod-core/changelog.md index 0022cf2e..08673e42 100644 --- a/yesod-core/changelog.md +++ b/yesod-core/changelog.md @@ -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. diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal index ac1aba73..80be03e3 100644 --- a/yesod-core/yesod-core.cabal +++ b/yesod-core/yesod-core.cabal @@ -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