haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-23 09:21:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Try showing less snapshots #311
This commit is contained in:
Michael Snoyman 2022-07-14 03:47:20 +03:00 committed by GitHub
commit 041255cc29
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.github/workflows/runtime.yml vendored
View File

@ -2,7 +2,7 @@ name: Runtime image
on: on:
push: push:
branches: [master, bench] branches: [master, bench, 311-less-snapshots]
jobs: jobs:
push: push:

2
src/Handler/Package.hs
View File

@ -157,7 +157,7 @@ getPackageSnapshotsR :: PackageNameP -> Handler Html
getPackageSnapshotsR pn = getPackageSnapshotsR pn =
track "Handler.Package.getPackageSnapshotsR" $ do track "Handler.Package.getPackageSnapshotsR" $ do
cacheSeconds $ 60 * 60 * 24 cacheSeconds $ 60 * 60 * 24
snapshots <- getSnapshotsForPackage pn Nothing snapshots <- getSnapshotsForPackage pn (Just 50)
defaultLayout defaultLayout
(do setTitle ("Packages for " >> toHtml pn) (do setTitle ("Packages for " >> toHtml pn)
$(combineStylesheets 'StaticR [css_font_awesome_min_css]) $(combineStylesheets 'StaticR [css_font_awesome_min_css])