diff options
Diffstat (limited to 'compiler/main/SysTools.hs')
| -rw-r--r-- | compiler/main/SysTools.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/main/SysTools.hs b/compiler/main/SysTools.hs index bbe889ba99..b2b13d424b 100644 --- a/compiler/main/SysTools.hs +++ b/compiler/main/SysTools.hs @@ -48,6 +48,7 @@ import Outputable import ErrUtils import GHC.Platform import GHC.Driver.Session +import GHC.Driver.Ways import Control.Monad.Trans.Except (runExceptT) import System.FilePath @@ -58,6 +59,7 @@ import SysTools.Info import SysTools.Tasks import SysTools.BaseDir import SysTools.Settings +import qualified Data.Set as Set {- Note [How GHC finds toolchain utilities] @@ -254,7 +256,7 @@ linkDynLib dflags0 o_files dep_packages | ( osElfTarget (platformOS (targetPlatform dflags)) || osMachOTarget (platformOS (targetPlatform dflags)) ) && dynLibLoader dflags == SystemDependent && - WayDyn `elem` ways dflags + WayDyn `Set.member` ways dflags = ["-L" ++ l, "-Xlinker", "-rpath", "-Xlinker", l] -- See Note [-Xlinker -rpath vs -Wl,-rpath] | otherwise = ["-L" ++ l] |