Moved some functions to yesod-core
This commit is contained in:
parent
b530166c09
commit
8f73e2ab8d
@ -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)
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user