Revert "Try showing less snapshots #311"

This reverts commit 4ef23fd.
commercialhaskell · Apr 21, 2022 · f39c950 · f39c950
1 parent 3f7b642
commit f39c950
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 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 <- getLtsSnapshotsForPackage pn (Just 100)
+        snapshots <- getSnapshotsForPackage pn Nothing
         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,17 +638,15 @@ stringToArray ::
     -> SqlExpr (Value [String])
 stringToArray s1 s2 = unsafeSqlFunction "string_to_array" (s1, s2)
 
-getLtsSnapshotsForPackage
+getSnapshotsForPackage
     :: GetStackageDatabase env m
     => PackageNameP
     -> Maybe Int
     -> m [(CompilerP, SnapshotPackageInfo)]
-getLtsSnapshotsForPackage pname mlimit =
+getSnapshotsForPackage pname mlimit =
     fmap (first unValue) <$>
     run (snapshotPackageInfoQuery $ \_sp s pn _v spiQ -> do
-             where_ $
-               pn ^. PackageNameName ==. val pname &&.
-               (s ^. snapshotName `ilike` val "lts%")
+             where_ (pn ^. PackageNameName ==. val pname)
              orderBy [desc (s ^. SnapshotCreated)]
              forM_ mlimit (limit . fromIntegral)
              pure (s ^. SnapshotCompiler, spiQ))