[NO-ISSUE] Log number of releases when displaying a package

flora-pm · Dec 14, 2023 · 63c77b4 · 63c77b4
1 parent 2904f11
commit 63c77b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/web/FloraWeb/Pages/Server/Packages.hs b/src/web/FloraWeb/Pages/Server/Packages.hs
@@ -122,7 +122,7 @@ showPackageVersion namespace packageName mversion = do
   releases <- Query.getReleases package.packageId
   let latestRelease =
         releases
-          & Vector.filter (\r -> Just True /= r.deprecated)
+          & Vector.filter (\r -> r.deprecated /= Just True)
           & maximumBy (compare `on` (.version))
       version = fromMaybe latestRelease.version mversion
   release <- guardThatReleaseExists package.packageId version $ const web404
@@ -156,6 +156,7 @@ showPackageVersion namespace packageName mversion = do
             [ "count" .= numberOfDependents
             ]
       , "package" .= (display namespace <> "/" <> display packageName)
+      , "releases" .= numberOfReleases
       ]
 
   let packageIndexURL = packageIndex.url