From: sof <unknown>
Date: Tue, 17 Jul 2001 17:12:04 +0000 (+0000)
Subject: [project @ 2001-07-17 17:12:04 by sof]
X-Git-Tag: Approximately_9120_patches~1521
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98cbc33ba313890c5ecf551d03fb61b6349e29da;p=ghc-hetmet.git

[project @ 2001-07-17 17:12:04 by sof]
runSomething: narrow down prev commit, only quote args under mingw;it interacts badly with -D quoting already done on other plats (and isn't reqd)
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 1f7a038..8783498 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -557,8 +557,12 @@ runSomething phase_name pgm args
   where
     cmd_line = unwords (pgm : dosifyPaths (map quote args))
 	-- The pgm is already in native format (appropriate dir separators)
+#if defined(mingw32_TARGET_OS)
     quote "" = ""
     quote s  = "\"" ++ s ++ "\""
+#else
+    quote = id
+#endif
 
 traceCmd :: String -> String -> IO () -> IO ()
 -- a) trace the command (at two levels of verbosity)