haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-19 07:31:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

bar

Browse Source
This commit is contained in:
Michael Snoyman 2022-04-21 13:13:21 +03:00
parent c5847bb2a5
commit 12462dff95
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -648,7 +648,7 @@ getLtsSnapshotsForPackage pname mlimit =
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%") (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))