[project @ 2005-01-01 23:59:58 by krasimir]

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

diff --git a/System/Process.hs b/System/Process.hs
index a35038e..7a1965b 100644 (file)
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -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