Add support for Atom and RSS content feeds - this info is available through mf2 anyway so Atom and RSS are kinda redundant, but we'll include them anyway

src/Handler/Entries.hs

@@ -5,6 +5,7 @@ module Handler.Entries where
 import Import
 
 import Web.Slug ( Slug )
+import Yesod.AtomFeed ( atomLink )
 
 import qualified Entry.Kind as K
 import Widget.Entry ( entryR, hEntry )
@@ -15,6 +16,7 @@ getEntriesR kind = do
     entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished]
     defaultLayout $ do
         setTitle . toHtml . K.pluralise $ kind
+        FeedKindR kind `atomLink` K.pluralise kind
         $(widgetFile "entries")
 
 checkMatching :: K.EntryKind -> Slug -> Entry -> Bool