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

Try sorting by ID instead

Browse Source
This commit is contained in:
Michael Snoyman 2020-11-24 16:17:28 +02:00
parent f8a82ec511
commit 5f4edc17b3
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 ^. SnapshotCreated)] orderBy [desc (versionArray v), desc (s ^. SnapshotId)]
limit 1 limit 1
pure ((), spiQ)) pure ((), spiQ))