Only show 50 entries

This commit is contained in:
Michael Snoyman 2022-04-21 13:32:12 +03:00
parent f39c950448
commit add86d4417
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046

View File

@ -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])