diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-05 11:17:46 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-11 20:33:37 -0400 |
| commit | 8e6febcee4b91a88a5027baac4bee5a8847fe79b (patch) | |
| tree | 52e17447417df5f410ea4e571ea5df7ead752bb8 /compiler/GHC/Driver/Packages.hs | |
| parent | 3aa9b35fcc417ab39d8da633482fe64dc9f898b1 (diff) | |
| download | haskell-8e6febcee4b91a88a5027baac4bee5a8847fe79b.tar.gz | |
Refactor GHC.Driver.Session (Ways and Flags)
* extract flags and ways into their own modules (with some renaming)
* remove one SOURCE import of GHC.Driver.Session from GHC.Driver.Phases
* when GHC uses dynamic linking (WayDyn), `interpWays` was only
reporting WayDyn even if the host was profiled (WayProf). Now it
returns both as expected (might fix #16803).
* `mkBuildTag :: [Way] -> String` wasn't reporting a canonical tag for
differently ordered lists. Now we sort and nub the list to fix this.
Diffstat (limited to 'compiler/GHC/Driver/Packages.hs')
| -rw-r--r-- | compiler/GHC/Driver/Packages.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/Packages.hs b/compiler/GHC/Driver/Packages.hs index 572da5f3d1..09eac60308 100644 --- a/compiler/GHC/Driver/Packages.hs +++ b/compiler/GHC/Driver/Packages.hs @@ -1849,8 +1849,8 @@ packageHsLibs dflags p = map (mkDynName . addSuffix) (hsLibraries p) | otherwise = ways1 - tag = mkBuildTag (filter (not . wayRTSOnly) ways2) - rts_tag = mkBuildTag ways2 + tag = waysTag (filter (not . wayRTSOnly) ways2) + rts_tag = waysTag ways2 mkDynName x | WayDyn `notElem` ways dflags = x |