X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FProcess.hs;h=7216ac76d0bb2310e37166ba7ed32e08da07b9e1;hb=aaf764b3ad8b1816d68b5f27299eac125f08e1a5;hp=a35038ea317565851befaa2a94d36de2f37edb3a;hpb=ef78e78a870add70e7550806bb46aab78bf62cbc;p=ghc-base.git

diff --git a/System/Process.hs b/System/Process.hs
index a35038e..7216ac7 100644
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -cpp -fffi #-}
+{-# OPTIONS_GHC -cpp -fffi #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Process
@@ -279,7 +279,7 @@ fdToHandle pfd mode = do
   fd <- peek pfd
   openFd fd (Just Stream) 
      False{-not a socket-}
-     ("fd:" ++ show fd) mode True{-binary-} False{-no truncate-}
+     ("fd:" ++ show fd) mode True{-binary-}
 
 -- ----------------------------------------------------------------------------
 -- waitForProcess