[commit: packages/process] master, new-flags, new-flags-no-f3df9d6: Fix compilation error (4c18877)

git at git.haskell.org git at git.haskell.org
Mon Nov 2 06:23:49 UTC 2015


Repository : ssh://git@git.haskell.org/process

On branches: master,new-flags,new-flags-no-f3df9d6
Link       : http://ghc.haskell.org/trac/ghc/changeset/4c18877ecbdbf7b76e5bc2bc3a58de36ec903702/process

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

commit 4c18877ecbdbf7b76e5bc2bc3a58de36ec903702
Author: Michael Snoyman <michael at snoyman.com>
Date:   Wed Aug 19 11:02:32 2015 +0300

    Fix compilation error


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

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

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index f8a02b4..cfe34ef 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -472,8 +472,8 @@ createProcess_ fun CreateProcess{ cmdspec = cmdsp,
                                 pfdStdInput pfdStdOutput pfdStdError
                                 ((if mb_close_fds then RUN_PROCESS_IN_CLOSE_FDS else 0)
                                 .|.(if mb_create_group then RUN_PROCESS_IN_NEW_GROUP else 0)
-                                .|.(if mb_detach_console then RUN_PROCESS_DETACHED else 0))
-                                .|.(if mb_create_new_console then RUN_PROCESS_NEW_CONSOLE else 0))
+                                .|.(if mb_detach_console then RUN_PROCESS_DETACHED else 0)
+                                .|.(if mb_create_new_console then RUN_PROCESS_NEW_CONSOLE else 0)
                                 .|.(if mb_new_session then RUN_PROCESS_NEW_SESSION else 0))
 
      hndStdInput  <- mbPipe mb_stdin  pfdStdInput  WriteMode



More information about the ghc-commits mailing list