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-}
-- ----------------------------------------------------------------------------
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.
-}