diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-03 11:58:48 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-03 11:58:48 +0100 |
| commit | 494eb3dc2bdbe76170044631b98884c56e9acfd3 (patch) | |
| tree | e40c2ade1ff54cdcc42054766f83dc5f4099529b /compiler/main/Packages.lhs | |
| parent | db5c6adc0c39a9ea997adca821fc7561afe1d500 (diff) | |
| download | haskell-494eb3dc2bdbe76170044631b98884c56e9acfd3.tar.gz | |
Refactor the ways code a bit
We used to use a list lookup that couldn't fail. Now we just use
functions.
There were 3 overlapping entries for WayPar; I've commented out the ones
that were shadowed for now.
Diffstat (limited to 'compiler/main/Packages.lhs')
| -rw-r--r-- | compiler/main/Packages.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs index 5bea131088..0f9ab3647b 100644 --- a/compiler/main/Packages.lhs +++ b/compiler/main/Packages.lhs @@ -883,13 +883,13 @@ packageHsLibs dflags p = map (mkDynName . addSuffix) (hsLibraries p) where ways0 = ways dflags - ways1 = filter ((/= WayDyn) . wayName) ways0 + ways1 = filter (/= WayDyn) ways0 -- the name of a shared library is libHSfoo-ghc<version>.so -- we leave out the _dyn, because it is superfluous -- debug RTS includes support for -eventlog - ways2 | WayDebug `elem` map wayName ways1 - = filter ((/= WayEventLog) . wayName) ways1 + ways2 | WayDebug `elem` ways1 + = filter (/= WayEventLog) ways1 | otherwise = ways1 |