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.
This commit is contained in:
Pascal Wittmann 2014-01-26 15:22:47 +01:00
parent a6594f5408
commit c9255712fb

View File

@ -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