From 906bb703fe8f2b660fa8c74abea3d02afbf537c5 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Wed, 19 Jul 2000 08:46:10 +0000
Subject: [PATCH] [project @ 2000-07-19 08:46:10 by rrt] Stop doing all system
calls via "sh -c", as this messed up quoting.
---
ghc/driver/Main.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 7120b931a2b1..7bcb9d00dd41 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
--
GitLab