documentation patch for process

Evan Laforge qdunkan at gmail.com
Thu Feb 23 02:52:37 CET 2012


Any interest in applying this?  I don't think I have permissions.

Or should I get permissions somehow?

On Wed, Feb 8, 2012 at 1:25 PM, Evan Laforge <qdunkan at gmail.com> wrote:
> I recently burned some time because I didn't realize that
> System.Process.createProcess doesn't report when the binary isn't
> found.  I guess I was used to that behaviour from python's subprocess
> module, which goes to some effort to report the error from the
> fork()ed child when exec() fails.  After a failed solution, I did some
> poking around in the source to see exactly what haskell's process
> does.
>
> In the interests of saving someone else that time, I submit a patch to
> process to add some documentation.  I'm not sure how to do a 'darcs
> send' with git, but here's the patch:
>
> % git log | head
> commit 5a46937961b3400fa58ccffc785d0de8c1c01d94
> Author: Evan Laforge <qdunkan at gmail.com>
> Date:   Wed Feb 8 13:25:16 2012 -0800
>
>    More detailed haddock for createProcess: document what happens if
>    the binary is not found
>
> commit c8b30a6f1d493ab724f2da05dbc49496b119a051
> Author: Simon Marlow <marlowsd at gmail.com>
> Date:   Mon Jan 16 16:25:34 2012 +0000
>
> % git diff HEAD\^
> diff --git a/System/Process.hs b/System/Process.hs
> index f3a8f9b..a372228 100644
> --- a/System/Process.hs
> +++ b/System/Process.hs
> @@ -234,9 +234,18 @@ To create a pipe from which to read the output of @ls@:
>  To also set the directory in which to run @ls@:
>
>  >   (_, Just hout, _, _) <-
> ->       createProcess (proc "ls" []){ cwd = Just "\home\bob",
> +>       createProcess (proc "ls" []){ cwd = Just "/home/bob",
>  >                                     std_out = CreatePipe }
>
> +Note that this does /not/ throw an error if the binary is not found,
> +or not executable.  Instead, the process will fail with the exit code 127.
> +But you can't rely on it failing quickly, because it may e.g. hang up
> +searching the PATH on a slow NFS mount.  Since there's no way to tell when
> +the exec() has succeeded, the only way to reliably know if the createProcess
> +failed is to 'waitForProcess'.
> +
> +If the CreateProcess record's 'cwd' directory doesn't exist, the exit code
> +will be 126.
>  -}
>  createProcess
>   :: CreateProcess
> diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
> index 11de1f4..2a6c047 100644
> --- a/System/Process/Internals.hs
> +++ b/System/Process/Internals.hs
> @@ -199,7 +199,8 @@ data CmdSpec
>   = ShellCommand String
>       -- ^ a command line to execute using the shell
>   | RawCommand FilePath [String]
> -      -- ^ the filename of an executable with a list of arguments
> +      -- ^ The filename of an executable with a list of arguments.
> +      -- The PATH is searched for the executable.
>
>  data StdStream
>   = Inherit                  -- ^ Inherit Handle from parent



More information about the Libraries mailing list