projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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
a35038e
..
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
-----------------------------------------------------------------------------
-- |
-- Module : System.Process
@@
-279,7
+279,7
@@
fdToHandle pfd mode = do
fd <- peek pfd
openFd fd (Just Stream)
False{-not a socket-}
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
-- ----------------------------------------------------------------------------
-- waitForProcess