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||] 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 - $title + $title$up $link $link $descArtist' - $date' + $date |] 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 |] else "" - date' = formatRSS date + date = formatRSS $ #latestDate i nsfw makeDesc :: Desc -> Builder makeDesc NoDesc = ""