From add86d441755396fc287668430386d614400a767 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 21 Apr 2022 13:32:12 +0300
Subject: [PATCH] Only show 50 entries

---
 src/Handler/Package.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Package.hs b/src/Handler/Package.hs
index fad3c8f..76ac42c 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 <- getSnapshotsForPackage pn (Just 50)
         defaultLayout
             (do setTitle ("Packages for " >> toHtml pn)
                 $(combineStylesheets 'StaticR [css_font_awesome_min_css])