Merge pull request #11208 from sgillespie/fix/exe-incomplete-record-selectors

mergify[bot] · web-flow · commit 8365cec87198 · 2025-10-11T05:26:22.000Z
Fix incomplete-record-selection warning in cabal-install
diff --git a/cabal-install/src/Distribution/Client/ProjectPlanning.hs b/cabal-install/src/Distribution/Client/ProjectPlanning.hs
@@ -1246,8 +1246,8 @@ getPackageSourceHashes verbosity withRepoCtx solverPlan = do
                       ]
                 | (repo, pkgids) <-
                     map (\grp@((repo, _) :| _) -> (repo, map snd (NE.toList grp)))
-                      . NE.groupBy ((==) `on` (remoteRepoName . repoRemote . fst))
-                      . sortBy (compare `on` (remoteRepoName . repoRemote . fst))
+                      . NE.groupBy ((==) `on` (repoName . fst))
+                      . sortBy (compare `on` (repoName . fst))
                       $ repoTarballPkgsWithMetadata
                 ]
 

Original file line number	Diff line number	Diff line change
`@@ -1246,8 +1246,8 @@ getPackageSourceHashes verbosity withRepoCtx solverPlan = do`
`1246`	`1246`	`]`
`1247`	`1247`	`\| (repo, pkgids) <-`
`1248`	`1248`	`map (\grp@((repo, _) :\| _) -> (repo, map snd (NE.toList grp)))`
`1249`		- . NE.groupBy ((==) `on` (remoteRepoName . repoRemote . fst))
`1250`		- . sortBy (compare `on` (remoteRepoName . repoRemote . fst))
	`1249`	+ . NE.groupBy ((==) `on` (repoName . fst))
	`1250`	+ . sortBy (compare `on` (repoName . fst))
`1251`	`1251`	`$ repoTarballPkgsWithMetadata`
`1252`	`1252`	`]`
`1253`	`1253`