From 187dc566092345305b7255166d49d2b5e609b249 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 12 Jun 2003 16:25:31 +0000 Subject: [PATCH] [project @ 2003-06-12 16:25:31 by simonmar] Urk, don't quote/escape the command name on Windows, because the compiler is exceedingly naughty and sometimes uses 'perl "..."' as the command name. --- ghc/compiler/main/SysTools.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index a2f0d1d..505610c 100644 --- a/ghc/compiler/main/SysTools.lhs +++ b/ghc/compiler/main/SysTools.lhs @@ -754,7 +754,7 @@ foreign import ccall unsafe "rawSystem" -- a single string. Command-line parsing is done by the executable -- itself. rawSystem cmd args = do - let cmdline = translate cmd ++ concat (map ((' ':) . translate) args) + let cmdline = {-translate-} cmd ++ concat (map ((' ':) . translate) args) withCString cmdline $ \pcmdline -> do status <- throwErrnoIfMinus1 "rawSystem" (c_rawSystem pcmdline) case status of -- 1.7.10.4