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

Insist on latest LTS on homepage #216

Browse Source
This commit is contained in:
Michael Snoyman 2016-12-07 09:12:52 -05:00
parent 8fb3678d5b
commit bcf86a1d40
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Stackage/Database.hs
View File

@ -791,12 +791,17 @@ getPackageCount sid = run $ count [SnapshotPackageSnapshot ==. sid]
getLatestLtsByGhc :: GetStackageDatabase m getLatestLtsByGhc :: GetStackageDatabase m
=> m [(Int, Int, Text)] => m [(Int, Int, Text)]
getLatestLtsByGhc = run $ fmap (map toTuple) $ do 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) E.groupBy (snapshot E.^. SnapshotGhc, lts E.^. LtsMajor, lts E.^. LtsMinor)
return (lts, snapshot) return (lts, snapshot)
where where
toTuple (Entity _ lts, Entity _ snapshot) = toTuple (Entity _ lts, Entity _ snapshot) =
(ltsMajor lts, ltsMinor lts, snapshotGhc snapshot) (ltsMajor lts, ltsMinor lts, snapshotGhc snapshot)
dedupe [] = []
dedupe (x:xs) = x : dedupe (dropWhile (\y -> thd x == thd y) xs)
thd (_, _, x) = x