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

Switch to Text

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-15 11:35:36 +03:00
parent 8b82058c49
commit 52441303f4
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Yesod/Helpers/FeedTypes.hs
View File

@ -5,10 +5,11 @@ module Yesod.Helpers.FeedTypes
import Text.Hamlet (Html) import Text.Hamlet (Html)
import Data.Time.Clock (UTCTime) import Data.Time.Clock (UTCTime)
import Data.Text (Text)
-- | The overal feed -- | The overal feed
data Feed url = Feed data Feed url = Feed
{ feedTitle :: String { feedTitle :: Text
, feedLinkSelf :: url , feedLinkSelf :: url
, feedLinkHome :: url , feedLinkHome :: url
@ -18,7 +19,7 @@ data Feed url = Feed
-- | note: currently only used for Rss, possible values: -- | note: currently only used for Rss, possible values:
-- <http://www.rssboard.org/rss-language-codes> -- <http://www.rssboard.org/rss-language-codes>
, feedLanguage :: String , feedLanguage :: Text
, feedUpdated :: UTCTime , feedUpdated :: UTCTime
, feedEntries :: [FeedEntry url] , feedEntries :: [FeedEntry url]
@ -28,6 +29,6 @@ data Feed url = Feed
data FeedEntry url = FeedEntry data FeedEntry url = FeedEntry
{ feedEntryLink :: url { feedEntryLink :: url
, feedEntryUpdated :: UTCTime , feedEntryUpdated :: UTCTime
, feedEntryTitle :: String , feedEntryTitle :: Text
, feedEntryContent :: Html , feedEntryContent :: Html
} }

1
yesod-newsfeed.cabal
View File

@ -17,6 +17,7 @@ library
, time >= 1.1.4 && < 1.3 , time >= 1.1.4 && < 1.3
, hamlet >= 0.8 && < 0.9 , hamlet >= 0.8 && < 0.9
, bytestring >= 0.9 && < 0.10 , bytestring >= 0.9 && < 0.10
, text >= 0.9 && < 1.0
exposed-modules: Yesod.Helpers.AtomFeed exposed-modules: Yesod.Helpers.AtomFeed
, Yesod.Helpers.RssFeed , Yesod.Helpers.RssFeed
, Yesod.Helpers.Feed , Yesod.Helpers.Feed