Skip to content

Commit c25ab80

Browse files
committed
Add a comment clarifying repoTarballPkgsWithMetadata are all SecureRepos
Clarify that repoTarballPkgsWithMetadata are all SecureRepos, so this can be easily refactored in the future. # Please enter the commit message for your changes. Lines starting # with '#' will be ignored, and an empty message aborts the commit. # # Commands: # q Close # <c-c><c-c> Submit # <c-c><c-k> Abort # <m-p> Previous Message # <m-n> Next Message # <m-r> Reset Message # # On branch fix/exe-incomplete-record-selectors # Your branch is up to date with 'origin/fix/exe-incomplete-record-selectors'. # # Changes to be committed: # modified: cabal-install/src/Distribution/Client/ProjectPlanning.hs # # Untracked files: # .direnv/ #
1 parent 577c848 commit c25ab80

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

cabal-install/src/Distribution/Client/ProjectPlanning.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1245,6 +1245,8 @@ getPackageSourceHashes verbosity withRepoCtx solverPlan = do
12451245
| pkgid <- pkgids
12461246
]
12471247
| (repo, pkgids) <-
1248+
-- All Repos here are SecureRepos (and will have a name), so we're
1249+
-- sorting Justs
12481250
map (\grp@((repo, _) :| _) -> (repo, map snd (NE.toList grp)))
12491251
. NE.groupBy ((==) `on` (fmap remoteRepoName . maybeRepoRemote . fst))
12501252
. sortBy (compare `on` (fmap remoteRepoName . maybeRepoRemote . fst))

0 commit comments

Comments
 (0)