diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-01 18:18:15 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:42:31 -0400 |
| commit | accdb24a086b80fe74776246aa33bce5a920e3c8 (patch) | |
| tree | 1204e3b93332d6f54d2b5f71cc2794bdc9bd4a2d /compiler/GHC/Unit/State.hs | |
| parent | fd984d68e5ec4b04bc79395c099434e653eb1060 (diff) | |
| download | haskell-accdb24a086b80fe74776246aa33bce5a920e3c8.tar.gz | |
Expose RTS-only ways (#18651)
Some RTS ways are exposed via settings (ghcThreaded, ghcDebugged) but
not all. It's simpler if the RTS exposes them all itself.
Diffstat (limited to 'compiler/GHC/Unit/State.hs')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index c95c9e4031..be5b08110d 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -1856,11 +1856,11 @@ packageHsLibs dflags p = map (mkDynName . addSuffix) (unitLibraries p) -- debug and profiled RTSs include support for -eventlog ways2 | WayDebug `Set.member` ways1 || WayProf `Set.member` ways1 - = Set.filter (/= WayEventLog) ways1 + = Set.filter (/= WayTracing) ways1 | otherwise = ways1 - tag = waysTag (Set.filter (not . wayRTSOnly) ways2) + tag = waysTag (fullWays ways2) rts_tag = waysTag ways2 mkDynName x |