[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 (file)
--- 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