-{-# OPTIONS -cpp -fffi #-}
+{-# OPTIONS_GHC -cpp -fffi #-}
-----------------------------------------------------------------------------
-- |
-- Module : System.Process
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