diff options
-rw-r--r-- | compiler/GHC/Linker/Static.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Linker/Static.hs b/compiler/GHC/Linker/Static.hs index a94fa153f6..cfb83f0575 100644 --- a/compiler/GHC/Linker/Static.hs +++ b/compiler/GHC/Linker/Static.hs @@ -111,7 +111,7 @@ linkBinary' staticLink logger tmpfs dflags unit_env o_files dep_units = do | osMachOTarget (platformOS platform) && dynLibLoader dflags == SystemDependent && WayDyn `elem` ways dflags && - gopt Opt_RPath dflags + useXLinkerRPath dflags (platformOS platform) = let libpath = if gopt Opt_RelativeDynlibPaths dflags then "@loader_path" </> (l `makeRelativeTo` full_output_fn) |