atom: include HSEC ID in entry title

The human-friendly presentations of the feed ought to include the HSEC ID somewhere :)
haskell · Apr 3, 2024 · 88fc2a0 · 88fc2a0
1 parent 2eac337
commit 88fc2a0
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs b/code/hsec-tools/src/Security/Advisories/Generate/HTML.hs
@@ -243,13 +243,18 @@ feed advisories =
     toEntry advisory =
       ( Feed.nullEntry
         (toUrl advisory)
-        (Feed.TextString $ Advisories.advisorySummary advisory)
+        (mkSummary advisory)
         (T.pack . iso8601Show $ Advisories.advisoryModified advisory)
       )
         { Feed.entryLinks = [(Feed.nullLink (toUrl advisory)) { Feed.linkRel = Just (Left "alternate") }]
         , Feed.entryContent = Just (Feed.HTMLContent (Advisories.advisoryHtml advisory))
         }
 
+    mkSummary advisory =
+      Feed.TextString $
+        T.pack (Advisories.printHsecId (Advisories.advisoryId advisory))
+        <> " - "
+        <> Advisories.advisorySummary advisory
     toUrl advisory = advisoriesRootUrl <> "/" <> advisoryLink (Advisories.advisoryId advisory)
 
 renderFeed :: [Advisories.Advisory] -> Text