X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=3a0fefaad3af917adeca2a73f0066aaf557b14ca;hb=f3114b4ac0b4316bf7acb9469c400b3d1c483c6c;hp=a9e9ab494b8b73ddab8a10d0e381736537a72804;hpb=dc3926523e71b891fd827c4bed01eef02ab38103;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index a9e9ab4..3a0fefa 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1174,7 +1174,7 @@ linkBinary dflags o_files dep_packages = do
 
     pkg_lib_paths <- getPackageLibraryPath dflags dep_packages
     let pkg_lib_path_opts = concat (map get_pkg_lib_path_opts pkg_lib_paths)
-	get_pkg_lib_path_opts l | opt_HardwireLibPaths = ["-L" ++ l, "-Wl,-rpath", "-Wl," ++ l]
+	get_pkg_lib_path_opts l | opt_HardwireLibPaths && not opt_Static = ["-L" ++ l, "-Wl,-rpath", "-Wl," ++ l]
 				| otherwise = ["-L" ++ l]
 
     let lib_paths = libraryPaths dflags