From 677cd5bc5a804163cf9a8d5a8d7db118160ec521 Mon Sep 17 00:00:00 2001 From: Fraser Tweedale Date: Thu, 4 Apr 2024 07:51:46 +1000 Subject: [PATCH] atom: set updated to newest advisory modification date, not oldest Silly mistake. --- code/hsec-tools/src/Security/Advisories/Generate/HTML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs b/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs index a2ad396e..9a564414 100644 --- a/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs +++ b/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs @@ -25,7 +25,7 @@ import System.IO (hPrint, stderr) import Distribution.Pretty (prettyShow) import Lucid -import Safe (minimumMay) +import Safe (maximumMay) import qualified Text.Atom.Feed as Feed import qualified Text.Atom.Feed.Export as FeedExport import Validation (Validation (..)) @@ -233,7 +233,7 @@ feed advisories = ( Feed.nullFeed atomFeedUrl (Feed.TextString "Haskell Security Advisory DB") -- Title - (maybe "" (T.pack . iso8601Show) . minimumMay . fmap (zonedTimeToUTC . Advisories.advisoryModified) $ advisories) + (maybe "" (T.pack . iso8601Show) . maximumMay . fmap (zonedTimeToUTC . Advisories.advisoryModified) $ advisories) ) { Feed.feedEntries = fmap toEntry advisories , Feed.feedLinks = [(Feed.nullLink atomFeedUrl) { Feed.linkRel = Just (Left "self") }]