From ca53ab5b8ecfedc7dcb72f2252f53cdc517ae794 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Tue, 4 Jan 2022 20:13:09 +0100
Subject: [PATCH] use latest date in rss

---
 make-pages/RSS.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/make-pages/RSS.hs b/make-pages/RSS.hs
index c864454..88eab45 100644
--- a/make-pages/RSS.hs
+++ b/make-pages/RSS.hs
@@ -47,16 +47,17 @@ make' root ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0
     Just o  -> [b|<atom:link href="$link/$o" rel="self" />|]
 
 makeItem :: Strict.Text -> FilePath -> Bool -> FilePath -> Info -> Builder
-makeItem root prefix nsfw path i@(Info {title, date, artist}) = [b|@4
+makeItem root prefix nsfw path i@(Info {title, artist}) = [b|@4
     <item>
-      <title>$title</title>
+      <title>$title$up</title>
       <link>$link</link>
       <guid>$link</guid>
       $descArtist'
-      <pubDate>$date'</pubDate>
+      <pubDate>$date</pubDate>
     </item>
   |]
  where
+  up   = if #updated i nsfw then [b| (updated)|] else ""
   dir  = takeDirectory path
   link = [b|$root/$prefix/$dir|]
   artist' = ifJust artist \case
@@ -73,7 +74,7 @@ makeItem root prefix nsfw path i@(Info {title, date, artist}) = [b|@4
       </description>
     |]
     else ""
-  date' = formatRSS date
+  date = formatRSS $ #latestDate i nsfw
 
 makeDesc :: Desc -> Builder
 makeDesc NoDesc = ""