atom:author (#351)

2012-07-02 09:46:35 +03:00 · 2012-07-02 09:46:35 +03:00 · a5b4dd5d29
commit a5b4dd5d29
parent e8fb512107
2 changed files with 2 additions and 0 deletions
--- a/yesod-newsfeed/Yesod/AtomFeed.hs
+++ b/yesod-newsfeed/Yesod/AtomFeed.hs
@ -58,6 +58,7 @@ template Feed {..} render =
        : Element "link" (Map.singleton "href" $ render feedLinkHome) []
        : Element "updated" Map.empty [NodeContent $ formatW3 feedUpdated]
        : Element "id" Map.empty [NodeContent $ render feedLinkHome]
+        : Element "author" Map.empty [NodeContent feedAuthor]
        : map (flip entryTemplate render) feedEntries

 entryTemplate :: FeedEntry url -> (url -> Text) -> Element
--- a/yesod-newsfeed/Yesod/FeedTypes.hs
+++ b/yesod-newsfeed/Yesod/FeedTypes.hs
@ -12,6 +12,7 @@ data Feed url = Feed
    { feedTitle       :: Text
    , feedLinkSelf    :: url
    , feedLinkHome    :: url
+    , feedAuthor      :: Text


    -- | note: currently only used for Rss