From: rrt <unknown>
Date: Wed, 19 Jul 2000 08:46:10 +0000 (+0000)
Subject: [project @ 2000-07-19 08:46:10 by rrt]
X-Git-Tag: Approximately_9120_patches~3971
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=906bb703fe8f2b660fa8c74abea3d02afbf537c5;p=ghc-hetmet.git

[project @ 2000-07-19 08:46:10 by rrt]
Stop doing all system calls via "sh -c", as this messed up quoting.
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 7120b93..7bcb9d0 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1690,7 +1690,7 @@ run_something phase_name cmd
    unless n $ do 
 
    -- and run it!
-   exit_code <- system ("sh -c \"" ++ cmd ++ "\"")  `catchAllIO` 
+   exit_code <- system cmd `catchAllIO` 
 		   (\e -> throwDyn (PhaseFailed phase_name (ExitFailure 1)))
 
    if exit_code /= ExitSuccess