Skip to content
Snippets Groups Projects
Commit 906bb703 authored by Reuben Thomas's avatar Reuben Thomas
Browse files

[project @ 2000-07-19 08:46:10 by rrt]

Stop doing all system calls via "sh -c", as this messed up quoting.
parent ad6dac26
No related merge requests found
...@@ -1690,7 +1690,7 @@ run_something phase_name cmd ...@@ -1690,7 +1690,7 @@ run_something phase_name cmd
unless n $ do unless n $ do
-- and run it! -- and run it!
exit_code <- system ("sh -c \"" ++ cmd ++ "\"") `catchAllIO` exit_code <- system cmd `catchAllIO`
(\e -> throwDyn (PhaseFailed phase_name (ExitFailure 1))) (\e -> throwDyn (PhaseFailed phase_name (ExitFailure 1)))
if exit_code /= ExitSuccess if exit_code /= ExitSuccess
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment