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

Revert "Try showing less snapshots #311"

Browse Source 
This reverts commit 4ef23fd0f5.
This commit is contained in:
Michael Snoyman 2022-04-21 13:31:54 +03:00
parent 3f7b642947
commit f39c950448
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 <- getLtsSnapshotsForPackage pn (Just 100) snapshots <- getSnapshotsForPackage pn Nothing
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])

8
src/Stackage/Database/Query.hs
View File

@ -638,17 +638,15 @@ stringToArray ::
-> SqlExpr (Value [String]) -> SqlExpr (Value [String])
stringToArray s1 s2 = unsafeSqlFunction "string_to_array" (s1, s2) stringToArray s1 s2 = unsafeSqlFunction "string_to_array" (s1, s2)
getLtsSnapshotsForPackage getSnapshotsForPackage
:: GetStackageDatabase env m :: GetStackageDatabase env m
=> PackageNameP => PackageNameP
-> Maybe Int -> Maybe Int
-> m [(CompilerP, SnapshotPackageInfo)] -> m [(CompilerP, SnapshotPackageInfo)]
getLtsSnapshotsForPackage pname mlimit = getSnapshotsForPackage pname mlimit =
fmap (first unValue) <$> fmap (first unValue) <$>
run (snapshotPackageInfoQuery $ \_sp s pn _v spiQ -> do run (snapshotPackageInfoQuery $ \_sp s pn _v spiQ -> do
where_ $ where_ (pn ^. PackageNameName ==. val pname)
pn ^. PackageNameName ==. val pname &&.
(s ^. snapshotName `ilike` val "lts%")
orderBy [desc (s ^. SnapshotCreated)] orderBy [desc (s ^. SnapshotCreated)]
forM_ mlimit (limit . fromIntegral) forM_ mlimit (limit . fromIntegral)
pure (s ^. SnapshotCompiler, spiQ)) pure (s ^. SnapshotCompiler, spiQ))