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

Fix a groupBy

Browse Source
This commit is contained in:
Michael Snoyman 2017-08-20 10:14:33 +03:00
parent 122e34ff12
commit 330637f430
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/Database.hs
View File

@ -819,7 +819,7 @@ getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do
E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do
E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId
E.orderBy [E.desc (lts E.^. LtsMajor), E.desc (lts E.^. LtsMinor)] E.orderBy [E.desc (lts E.^. LtsMajor), E.desc (lts E.^. LtsMinor)]
E.groupBy (snapshot E.^. SnapshotGhc, lts E.^. LtsMajor, lts E.^. LtsMinor) E.groupBy (snapshot E.^. SnapshotGhc, lts E.^. LtsId, lts E.^. LtsMajor, lts E.^. LtsMinor, snapshot E.^. SnapshotId)
return (lts, snapshot) return (lts, snapshot)
where where
toTuple (Entity _ lts, Entity _ snapshot) = toTuple (Entity _ lts, Entity _ snapshot) =