[project @ 2005-01-11 16:04:08 by simonmar]

[ghc-base.git] / System / Process.hs

diff --git a/System/Process.hs b/System/Process.hs
index 0cef6b7..7216ac7 100644 (file)
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -cpp -fffi #-}
+{-# OPTIONS_GHC -cpp -fffi #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Process
@@ -278,10 +278,8 @@ fdToHandle :: Ptr FD -> IOMode -> IO Handle
 fdToHandle pfd mode = do
   fd <- peek pfd
   openFd fd (Just Stream) 
-#if __GLASGOW_HASKELL__ >= 603
      False{-not a socket-}
-#endif
-     ("fd:" ++ show fd) mode True{-binary-} False{-no truncate-}
+     ("fd:" ++ show fd) mode True{-binary-}
 
 -- ----------------------------------------------------------------------------
 -- waitForProcess
@@ -345,7 +343,7 @@ getProcessExitCode (ProcessHandle handle) =
 
    On Windows, CreateProcess takes a single string for the command,
    which is later decomposed by cmd.exe.  In this case, we just want
-   to prepend "c:\WINDOWS\CMD.EXE /c" to our command line.  The
+   to prepend @\"c:\WINDOWS\CMD.EXE \/c\"@ to our command line.  The
    command-line translation that we normally do for arguments on
    Windows isn't required (or desirable) here.
 -}