diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-08-29 12:25:28 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-29 13:08:18 +0200 |
| commit | cd2dc9e2cf80881e96b98d025c2848edeca11ba4 (patch) | |
| tree | b7d8bf47bf1345f7b49cb23928fb6114df44a467 /utils/ghc-pkg | |
| parent | 0c823af84d80ac103528e54eda8e1c6bdf2bea69 (diff) | |
| download | haskell-cd2dc9e2cf80881e96b98d025c2848edeca11ba4.tar.gz | |
ghc-pkg --enable-multi-instance should not complain about case sensitivity.
Test Plan: validate
Reviewers: simonmar, bgamari, austin
Reviewed By: bgamari, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1177
Diffstat (limited to 'utils/ghc-pkg')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 1d80e97a5f..fbd7dae715 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1665,7 +1665,8 @@ checkDuplicates db_stack pkg multi_instance update = do uncasep = map toLower . display dups = filter ((== uncasep pkgid) . uncasep) (map sourcePackageId pkgs) - when (not update && not (null dups)) $ verror ForceAll $ + when (not update && not multi_instance + && not (null dups)) $ verror ForceAll $ "Package names may be treated case-insensitively in the future.\n"++ "Package " ++ display pkgid ++ " overlaps with: " ++ unwords (map display dups) |