lib: add support for "related" field

The "related" field in our advisory format was documented but not implemented. Implement it.
haskell · Jun 28, 2023 · 760eafa · 760eafa
1 parent 2180474
commit 760eafa
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/code/hsec-tools/src/Security/Advisories/Definition.hs b/code/hsec-tools/src/Security/Advisories/Definition.hs
@@ -28,6 +28,7 @@ data Advisory = Advisory
   , advisoryCWEs :: [CWE]
   , advisoryKeywords :: [Keyword]
   , advisoryAliases :: [Text]
+  , advisoryRelated :: [Text]
   , advisoryAffected :: [Affected]
   , advisoryReferences :: [Reference]
   , advisoryPandoc :: Pandoc  -- ^ Parsed document, without TOML front matter

diff --git a/code/hsec-tools/src/Security/Advisories/Parse.hs b/code/hsec-tools/src/Security/Advisories/Parse.hs
@@ -177,6 +177,9 @@ parseAdvisoryTable oob policy table doc summary details html = runTableParser $
   aliases <-
     fromMaybe []
       <$> optional advisory "aliases" (isArrayOf isString)
+  related <-
+    fromMaybe []
+      <$> optional advisory "related" (isArrayOf isString)
 
   affected <- mandatory table "affected" (isArrayOf parseAffected)
   references <- mandatory table "references" (isArrayOf parseReference)
@@ -188,6 +191,7 @@ parseAdvisoryTable oob policy table doc summary details html = runTableParser $
     , advisoryCWEs = cats
     , advisoryKeywords = kwds
     , advisoryAliases = aliases
+    , advisoryRelated = related
     , advisoryAffected = affected
     , advisoryReferences = references
     , advisoryPandoc = doc