Add the entry-kind pages and the actual entries to the generated sitemap

src/Handler/Common.hs

@@ -11,6 +11,9 @@ import Yesod.Sitemap
 
 import Import
 
+import Entry.Kind ( EntryKind, allEntryKinds )
+import Widget.Entry ( entryR )
+
 -- These handlers embed files in the executable at compile time to avoid a
 -- runtime dependency, and for efficiency.
 
@@ -27,10 +30,29 @@ getRobotsR :: Handler Text
 getRobotsR = robots SitemapR
 
 getSitemapR :: Handler TypedContent
-getSitemapR = sitemap $ do
+getSitemapR = do
-    yield SitemapUrl
+    entries <- runDB $ selectList [] [Desc EntryPublished]
-        { sitemapLoc = HomeR
+    sitemap $ do
-        , sitemapLastMod = Nothing
+        yield SitemapUrl
-        , sitemapChangeFreq = Just Daily
+            { sitemapLoc = HomeR
-        , sitemapPriority = Nothing
+            , sitemapLastMod = Nothing
-        }
+            , sitemapChangeFreq = Just Daily
+            , sitemapPriority = Nothing
+            }
+        yieldMany $ kindToSitemapUrl <$> allEntryKinds
+        yieldMany $ entryToSitemapUrl <$> entries
+
+kindToSitemapUrl :: EntryKind -> SitemapUrl (Route App)
+kindToSitemapUrl kind = SitemapUrl
+    { sitemapLoc = EntriesR kind
+    , sitemapLastMod = Nothing
+    , sitemapChangeFreq = Nothing
+    , sitemapPriority = Nothing
+    }
+entryToSitemapUrl :: Entity Entry -> SitemapUrl (Route App)
+entryToSitemapUrl entry = SitemapUrl
+    { sitemapLoc = entryR entry
+    , sitemapLastMod = Just . entryUpdated . entityVal $ entry
+    , sitemapChangeFreq = Nothing
+    , sitemapPriority = Nothing
+    }