Merge pull request #312 from fpco/311-less-snapshots

Try showing less snapshots #311
commercialhaskell · Jul 14, 2022 · 041255c · 041255c
2 parents e37596e + add86d4
commit 041255c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/.github/workflows/runtime.yml b/.github/workflows/runtime.yml
@@ -2,7 +2,7 @@ name: Runtime image
 
 on:
   push:
-    branches: [master, bench]
+    branches: [master, bench, 311-less-snapshots]
 
 jobs:
   push:

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 <- getSnapshotsForPackage pn (Just 50)
         defaultLayout
             (do setTitle ("Packages for " >> toHtml pn)
                 $(combineStylesheets 'StaticR [css_font_awesome_min_css])
-Original file line number
+Diff line change
@@ Expand Up / @@ -2,7 +2,7 @@ name: Runtime image @@
     on:
       push:
-        branches: [master, bench]
+        branches: [master, bench, 311-less-snapshots]
     jobs:
       push:
@@ Expand Down @@