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

Always take from latest snapshot published

Browse Source
This commit is contained in:
Michael Snoyman 2020-11-24 18:12:18 +02:00
parent 5f4edc17b3
commit af4ba4feae
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

@ -606,7 +606,7 @@ getSnapshotPackageLatestVersionQuery pname =
fmap snd . listToMaybe <$> fmap snd . listToMaybe <$>
(snapshotPackageInfoQuery $ \_sp s pn v spiQ -> do (snapshotPackageInfoQuery $ \_sp s pn v spiQ -> do
where_ (pn ^. PackageNameName ==. val pname) where_ (pn ^. PackageNameName ==. val pname)
orderBy [desc (versionArray v), desc (s ^. SnapshotId)] orderBy [desc (s ^. SnapshotId)]
limit 1 limit 1
pure ((), spiQ)) pure ((), spiQ))