From 4ef23fd0f504253b9bd6ee967645629bdcb4b450 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 21 Apr 2022 12:51:41 +0300
Subject: [PATCH] Try showing less snapshots #311

---
 src/Handler/Package.hs         | 2 +-
 src/Stackage/Database/Query.hs | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Package.hs b/src/Handler/Package.hs
index fad3c8f..e7b304a 100644
--- 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
index df7d7e8..9b4662a 100644
--- 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))