html: fix missing <tr> on by-packages index

Presentation of packages/components that have multiple advisories is
corrupted, due to missing <tr> parent elements.  Data cells for
multiple advisories are appearing in a single row.  Add missing <tr>
elements.

code/hsec-tools/src/Security/Advisories/Generate/HTML.hs

@@ -147,10 +147,13 @@ listByPackages advisories =
             let sortedAdvisories =
                     sortOn (Down . advisoryId . fst) perPackageAdvisory
             forM_ sortedAdvisories $ \(advisory, package) -> do
-              td_ [class_ "advisory-id"] $ a_ [href_ $ advisoryLink $ advisoryId advisory] $ toHtml (Advisories.printHsecId $ advisoryId advisory)
-              td_ [class_ "advisory-introduced"] $ toHtml $ introduced package
-              td_ [class_ "advisory-fixed"] $ maybe (return ()) toHtml $ fixed package
-              td_ [class_ "advisory-summary"] $ toHtml $ advisorySummary advisory
+              tr_ $ do
+                td_ [class_ "advisory-id"] $
+                  a_ [href_ $ advisoryLink $ advisoryId advisory] $
+                    toHtml (Advisories.printHsecId $ advisoryId advisory)
+                td_ [class_ "advisory-introduced"] $ toHtml $ introduced package
+                td_ [class_ "advisory-fixed"] $ maybe (return ()) toHtml $ fixed package
+                td_ [class_ "advisory-summary"] $ toHtml $ advisorySummary advisory
 
 indexDescription :: Html ()
 indexDescription =