From 330637f430e0fa3fab32e5763dbb985580489d21 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 20 Aug 2017 10:14:33 +0300 Subject: [PATCH] Fix a groupBy --- Stackage/Database.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Stackage/Database.hs b/Stackage/Database.hs index 20cc9f3..8b04341 100644 --- a/Stackage/Database.hs +++ b/Stackage/Database.hs @@ -819,7 +819,7 @@ getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId 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) where toTuple (Entity _ lts, Entity _ snapshot) =