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

atom:author (#351)

Browse Source
This commit is contained in:
Michael Snoyman 2012-07-02 09:46:35 +03:00
parent e8fb512107
commit a5b4dd5d29
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod-newsfeed/Yesod/AtomFeed.hs
View File

@ -58,6 +58,7 @@ template Feed {..} render =
: Element "link" (Map.singleton "href" $ render feedLinkHome) [] : Element "link" (Map.singleton "href" $ render feedLinkHome) []
: Element "updated" Map.empty [NodeContent $ formatW3 feedUpdated] : Element "updated" Map.empty [NodeContent $ formatW3 feedUpdated]
: Element "id" Map.empty [NodeContent $ render feedLinkHome] : Element "id" Map.empty [NodeContent $ render feedLinkHome]
: Element "author" Map.empty [NodeContent feedAuthor]
: map (flip entryTemplate render) feedEntries : map (flip entryTemplate render) feedEntries
entryTemplate :: FeedEntry url -> (url -> Text) -> Element entryTemplate :: FeedEntry url -> (url -> Text) -> Element

1
yesod-newsfeed/Yesod/FeedTypes.hs
View File

@ -12,6 +12,7 @@ data Feed url = Feed
{ feedTitle :: Text { feedTitle :: Text
, feedLinkSelf :: url , feedLinkSelf :: url
, feedLinkHome :: url , feedLinkHome :: url
, feedAuthor :: Text
-- | note: currently only used for Rss -- | note: currently only used for Rss