summaryrefslogtreecommitdiff
path: root/compiler/GHC/Linker/Dynamic.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Linker/Dynamic.hs')
-rw-r--r--compiler/GHC/Linker/Dynamic.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Linker/Dynamic.hs b/compiler/GHC/Linker/Dynamic.hs
index 48c3c6fcbd..e8c31a1f20 100644
--- a/compiler/GHC/Linker/Dynamic.hs
+++ b/compiler/GHC/Linker/Dynamic.hs
@@ -23,7 +23,6 @@ import GHC.SysTools.Tasks
import GHC.Utils.Logger
import GHC.Utils.TmpFs
-import qualified Data.Set as Set
import System.FilePath
linkDynLib :: Logger -> TmpFs -> DynFlags -> UnitEnv -> [String] -> [UnitId] -> IO ()
@@ -55,7 +54,7 @@ linkDynLib logger tmpfs dflags0 unit_env o_files dep_packages
| osElfTarget os || osMachOTarget os
, dynLibLoader dflags == SystemDependent
, -- Only if we want dynamic libraries
- WayDyn `Set.member` ways dflags
+ ways dflags `hasWay` WayDyn
-- Only use RPath if we explicitly asked for it
, useXLinkerRPath dflags os
= ["-L" ++ l, "-Xlinker", "-rpath", "-Xlinker", l]