@@ -45,6 +45,8 @@ data FeedConfiguration = FeedConfiguration
4545 feedDescription :: String
4646 , -- | Name of the feed author.
4747 feedAuthorName :: String
48+ , -- | Email of the feed author.
49+ feedAuthorEmail :: String
4850 , -- | Absolute root URL of the feed site (e.g. @http://jaspervdj.be@)
4951 feedRoot :: String
5052 } deriving (Show, Eq)
@@ -65,6 +67,7 @@ createFeed feedTemplate itemTemplate url configuration items =
6567 $ trySetField "title" (feedTitle configuration)
6668 $ trySetField "description" (feedDescription configuration)
6769 $ trySetField "authorName" (feedAuthorName configuration)
70+ $ trySetField "authorEmail" (feedAuthorEmail configuration)
6871 $ trySetField "root" (feedRoot configuration)
6972 $ trySetField "url" url
7073 $ fromBody body