Fix incomplete-record-selection warning in cabal-install

sgillespie · sgillespie · commit 577c84890ca8 · 2025-09-05T14:36:05.000-04:00
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` (fmap remoteRepoName . maybeRepoRemote . fst))
+                      . sortBy (compare `on` (fmap remoteRepoName . maybeRepoRemote . 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` (fmap remoteRepoName . maybeRepoRemote . fst))
	`1250`	+ . sortBy (compare `on` (fmap remoteRepoName . maybeRepoRemote . fst))
`1251`	`1251`	`$ repoTarballPkgsWithMetadata`
`1252`	`1252`	`]`
`1253`	`1253`