[project @ 2003-05-30 22:29:41 by wolfgang]

MacOS X:
pass the -framework option and its parameter as two separate arguments,
i.e. ["-framework", "Foo"] instead of ["-framework Foo"].
This is necessary because all options passed to gcc are now quoted
(since rev. 1.88 of SysTools.lhs), and "-framework Foo" is not a valid
option (while "-framework" "Foo" is).

MERGE TO STABLE

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 5dd7188..2482aaa 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1156,10 +1156,10 @@ staticLink o_files dep_packages = do
     let framework_path_opts = map ("-F"++) framework_paths
 
     pkg_frameworks <- getPackageFrameworks dep_packages
-    let pkg_framework_opts = map ("-framework " ++) pkg_frameworks
+    let pkg_framework_opts = concat [ ["-framework", fw] | fw <- pkg_frameworks ]
 
     frameworks <- readIORef v_Cmdline_frameworks
-    let framework_opts = map ("-framework "++) (reverse frameworks)
+    let framework_opts = concat [ ["-framework", fw] | fw <- reverse frameworks ]
         -- reverse because they're added in reverse order from the cmd line
 #endif