[commit: process] master: Fix "system" on wine; trac #5477 (14900d3)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/process

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/14900d31cbcf5166894871a2e7001e00d802248b

>---------------------------------------------------------------

commit 14900d31cbcf5166894871a2e7001e00d802248b
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Sep 11 13:51:56 2011 +0100

    Fix "system" on wine; trac #5477
    
    A missing space in the Windows cmd.exe invocation broke shell command
    invocation on Wine. Patch from A1kmm.

>---------------------------------------------------------------

 System/Process/Internals.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index 5935dc3..babadc1 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -456,7 +456,7 @@ commandToProcess
   -> IO (FilePath, String)
 commandToProcess (ShellCommand string) = do
   cmd <- findCommandInterpreter
-  return (cmd, translate cmd ++ "/c " ++ string)
+  return (cmd, translate cmd ++ " /c " ++ string)
 	-- We don't want to put the cmd into a single
 	-- argument, because cmd.exe will not try to split it up.  Instead,
 	-- we just tack the command on the end of the cmd.exe command line,