diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-12-16 11:59:26 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-16 11:59:28 -0500 |
| commit | c889df86d7bc9eb4cd53e38c81feecaf5f932678 (patch) | |
| tree | 553aa08a25a587ad4d900630d1f8696825f7e2db /compiler/main/Packages.hs | |
| parent | 13c1fc4dfc925afa328a6be9db191b11bf96d4a0 (diff) | |
| download | haskell-c889df86d7bc9eb4cd53e38c81feecaf5f932678.tar.gz | |
Packages: Kill unused UnitId argument to isDllName
Test Plan: Validate
Reviewers: austin, simonmar
Subscribers: thomie, ezyang
Differential Revision: https://phabricator.haskell.org/D2866
Diffstat (limited to 'compiler/main/Packages.hs')
| -rw-r--r-- | compiler/main/Packages.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/Packages.hs b/compiler/main/Packages.hs index 86a37352b0..b6b5e3c0a1 100644 --- a/compiler/main/Packages.hs +++ b/compiler/main/Packages.hs @@ -1747,11 +1747,11 @@ displayInstalledUnitId dflags uid = fmap sourcePackageIdString (lookupInstalledPackage dflags uid) -- | Will the 'Name' come from a dynamically linked library? -isDllName :: DynFlags -> UnitId {- not used -} -> Module -> Name -> Bool +isDllName :: DynFlags -> Module -> Name -> Bool -- Despite the "dll", I think this function just means that -- the symbol comes from another dynamically-linked package, -- and applies on all platforms, not just Windows -isDllName dflags _this_pkg this_mod name +isDllName dflags this_mod name | WayDyn `notElem` ways dflags = False | Just mod <- nameModule_maybe name -- Issue #8696 - when GHC is dynamically linked, it will attempt |