From ef8bbf5820d4283dc96229395837702c63cfe296 Mon Sep 17 00:00:00 2001 From: David Turner Date: Sun, 11 Oct 2015 07:39:48 +0000 Subject: [PATCH] Make comment more precise --- yesod-core/Yesod/Core/Internal/Util.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Core/Internal/Util.hs b/yesod-core/Yesod/Core/Internal/Util.hs index 3bf925ed..96d87073 100644 --- a/yesod-core/Yesod/Core/Internal/Util.hs +++ b/yesod-core/Yesod/Core/Internal/Util.hs @@ -54,6 +54,8 @@ formatRFC1123 = T.pack . formatTime defaultTimeLocale "%a, %d %b %Y %X %Z" formatRFC822 :: UTCTime -> T.Text formatRFC822 = T.pack . formatTime defaultTimeLocale "%a, %d %b %Y %H:%M:%S %z" --- | Format the time a year from now as per RFC 1123. +{- | Get the time 365 days from now in RFC 1123 format. For use as an expiry +date on a resource that never expires. See RFC 2616 section 14.21 for details. +-} getCurrentMaxExpiresRFC1123 :: IO T.Text getCurrentMaxExpiresRFC1123 = liftM (formatRFC1123 . addUTCTime (60*60*24*365)) getCurrentTime