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

Include some RSS-specific definitions

Browse Source
This commit is contained in:
Michael Snoyman 2011-01-17 08:14:50 +02:00
parent 5c3670c848
commit 085bb88bb1
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Yesod/Content.hs
View File

@ -19,6 +19,7 @@ module Yesod.Content
, typeJson , typeJson
, typeXml , typeXml
, typeAtom , typeAtom
, typeRss
, typeJpeg , typeJpeg
, typePng , typePng
, typeGif , typeGif
@ -45,6 +46,7 @@ module Yesod.Content
-- * Utilities -- * Utilities
, formatW3 , formatW3
, formatRFC1123 , formatRFC1123
, formatRFC822
#if TEST #if TEST
, contentTestSuite , contentTestSuite
#endif #endif
@ -194,6 +196,9 @@ typeXml = "text/xml"
typeAtom :: ContentType typeAtom :: ContentType
typeAtom = "application/atom+xml" typeAtom = "application/atom+xml"
typeRss :: ContentType
typeRss = "application/rss+xml"
typeJpeg :: ContentType typeJpeg :: ContentType
typeJpeg = "image/jpeg" typeJpeg = "image/jpeg"
@ -271,3 +276,7 @@ formatW3 = formatTime defaultTimeLocale "%FT%X-00:00"
-- | Format as per RFC 1123. -- | Format as per RFC 1123.
formatRFC1123 :: UTCTime -> String formatRFC1123 :: UTCTime -> String
formatRFC1123 = formatTime defaultTimeLocale "%a, %d %b %Y %X %Z" formatRFC1123 = formatTime defaultTimeLocale "%a, %d %b %Y %X %Z"
-- | Format as per RFC 822.
formatRFC822 :: UTCTime -> String
formatRFC822 = formatTime defaultTimeLocale "%a, %d %b %Y %H:%M:%S %z"