Moved some functions to yesod-core

This commit is contained in:
Michael Snoyman 2011-01-17 08:18:07 +02:00
parent b530166c09
commit 8f73e2ab8d
2 changed files with 2 additions and 14 deletions

View File

@ -25,18 +25,6 @@ import Yesod.Widget
import Text.Hamlet
import Data.Time.Clock (UTCTime)
-- | FIXME unneeded if formatRFC822 moves
import Data.Time.Format (formatTime)
import System.Locale (defaultTimeLocale)
-- | FIXME move this to Yesod.Content
formatRFC822 :: UTCTime -> String
formatRFC822 = formatTime defaultTimeLocale "%a, %d %b %Y %H:%M:%S %z"
-- | FIXME move this to Yesod.Content
typeRss :: ContentType
typeRss = "application/rss+xml"
newtype RepRss = RepRss Content
instance HasReps RepRss where
chooseRep (RepRss c) _ = return (typeRss, c)

View File

@ -16,8 +16,8 @@ library
, yesod-core >= 0.7 && < 0.8
, time >= 1.1.4 && < 1.3
, hamlet >= 0.7 && < 0.8
, old-locale >= 1.0 && < 1.1
exposed-modules: Yesod.Helpers.AtomFeed, Yesod.Helpers.RssFeed
exposed-modules: Yesod.Helpers.AtomFeed
, Yesod.Helpers.RssFeed
ghc-options: -Wall
source-repository head