[commit: process] encoding: Merge branch 'encoding' of equinox.local:~/Programming/Checkouts/ghc.git/libraries/process into encoding (f3c8b91)

Max Bolingbroke batterseapower at hotmail.com
Wed Apr 6 16:37:20 CEST 2011


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

On branch  : encoding

http://hackage.haskell.org/trac/ghc/changeset/f3c8b91d2f4323b121815d6225c9d462c663d49f

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

commit f3c8b91d2f4323b121815d6225c9d462c663d49f
Merge: a4d13cd... b4c2d52...
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date:   Tue Apr 5 11:58:28 2011 +0100

    Merge branch 'encoding' of equinox.local:~/Programming/Checkouts/ghc.git/libraries/process into encoding
    
    Conflicts:
    	System/Process/Internals.hs

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

diff --cc System/Process/Internals.hs
index bcfa7d0,0098d3b..4de3a5c
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@@ -81,10 -81,10 +81,6 @@@ import GHC.IOBase	( haFD, FD, IOExcepti
  import GHC.Handle
  #endif
  
- #if MIN_VERSION_base(4,3,2) && !defined(mingw32_HOST_OS)
- import qualified GHC.Foreign as GHC
- #endif
- 
 -#if (__GLASGOW_HASKELL__ > 700) && !defined(mingw32_HOST_OS)
 -import qualified GHC.Foreign as GHC
 -#endif
 -
  # elif __HUGS__
  
  import Hugs.Exception	( IOException(..) )
@@@ -239,8 -232,8 +228,8 @@@ runGenProcess_ fun CreateProcess{ cmdsp
     alloca $ \ pfdStdOutput ->
     alloca $ \ pfdStdError  ->
     maybeWith withCEnvironment mb_env $ \pEnv ->
--   maybeWith withFilePathLike mb_cwd $ \pWorkDir ->
--   withMany withFilePathLike (cmd:args) $ \cstrs ->
++   maybeWith withFilePath mb_cwd $ \pWorkDir ->
++   withMany withFilePath (cmd:args) $ \cstrs ->
     withArray0 nullPtr cstrs $ \pargs -> do
       
       fdin  <- mbFd fun fd_stdin  mb_stdin





More information about the Cvs-libraries mailing list