Try showing less snapshots #311

commercialhaskell · Apr 21, 2022 · 4ef23fd · 4ef23fd
1 parent be614d4
commit 4ef23fd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/Handler/Package.hs b/src/Handler/Package.hs
@@ -157,7 +157,7 @@ getPackageSnapshotsR :: PackageNameP -> Handler Html
 getPackageSnapshotsR pn =
     track "Handler.Package.getPackageSnapshotsR" $ do
         cacheSeconds $ 60 * 60 * 24
-        snapshots <- getSnapshotsForPackage pn Nothing
+        snapshots <- getLtsSnapshotsForPackage pn (Just 100)
         defaultLayout
             (do setTitle ("Packages for " >> toHtml pn)
                 $(combineStylesheets 'StaticR [css_font_awesome_min_css])

diff --git a/src/Stackage/Database/Query.hs b/src/Stackage/Database/Query.hs
@@ -638,15 +638,17 @@ stringToArray ::
     -> SqlExpr (Value [String])
 stringToArray s1 s2 = unsafeSqlFunction "string_to_array" (s1, s2)
 
-getSnapshotsForPackage
+getLtsSnapshotsForPackage
     :: GetStackageDatabase env m
     => PackageNameP
     -> Maybe Int
     -> m [(CompilerP, SnapshotPackageInfo)]
-getSnapshotsForPackage pname mlimit =
+getLtsSnapshotsForPackage pname mlimit =
     fmap (first unValue) <$>
     run (snapshotPackageInfoQuery $ \_sp s pn _v spiQ -> do
-             where_ (pn ^. PackageNameName ==. val pname)
+             where_ $
+               pn ^. PackageNameName ==. val pname &&.
+               (s ^. snapshotName `ilike` val "lts%")
              orderBy [desc (s ^. SnapshotCreated)]
              forM_ mlimit (limit . fromIntegral)
              pure (s ^. SnapshotCompiler, spiQ))