From f926ecfdcdf5468b8539bc8f4aad87404f1e397e Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Wed, 23 Jun 2021 10:28:07 +0100
Subject: linker: Replace one missed usage of Opt_RPath with useXLinkerRPath

Thanks to @wz1000 for spotting this oversight.
---
 compiler/GHC/Linker/Static.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.1