Wrap the name of the author in a name element.

According to http://tools.ietf.org/html/rfc4287 the atom:author element contains a person construct, that is it contains at least the name element.
yesodweb · Jan 26, 2014 · c925571 · c925571
1 parent a6594f5
commit c925571
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/yesod-newsfeed/Yesod/AtomFeed.hs b/yesod-newsfeed/Yesod/AtomFeed.hs
@@ -62,7 +62,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]
+        : Element "author" Map.empty [NodeElement $ Element "name" Map.empty [NodeContent feedAuthor]]
         : map (flip entryTemplate render) feedEntries
 
 entryTemplate :: FeedEntry url -> (url -> Text) -> Element