Only expose pgid in setpgid

Author: patricoferris

lib_eio/unix/fork_action.ml

@@ -72,5 +72,5 @@ let inherit_fds m =
 external action_setpgid : unit -> fork_fn = "eio_unix_fork_setpgid"
 let action_setpgid = action_setpgid ()
 
-let setpgid ~pid ~pgid =
-  { run = fun k -> k (Obj.repr (action_setpgid, pid, pgid)) }
+let setpgid pgid =
+  { run = fun k -> k (Obj.repr (action_setpgid, 0, pgid)) }

lib_eio/unix/fork_action.mli

@@ -59,7 +59,8 @@ val inherit_fds : (int * Fd.t * [< blocking]) list -> t
 
     After this, the new FDs may also be set as blocking or non-blocking, depending on [flags]. *)
 
-val setpgid : pid:int -> pgid:int -> t
-(** [setpgid ~pid ~pgid] sets the process group ID to [pgid] for the process [pid].
+val setpgid : int -> t
+(** [setpgid pgid] sets the child's process group ID to [pgid].
 
-    If [pid] is [0] then the process ID of the calling process shall be used. *)
+    If [pgid] is [0] the child's process ID will be used as the PGID, placing
+    the child in a {e new} process group. *)

lib_eio_linux/eio_linux.ml

@@ -226,7 +226,7 @@ module Process_mgr = struct
       ] in
       let actions = match pgid with
         | None -> actions
-        | Some pgid -> Eio_unix.Private.Fork_action.setpgid ~pid:0 ~pgid :: actions
+        | Some pgid -> Eio_unix.Private.Fork_action.setpgid pgid :: actions
       in
       let with_actions cwd fn = match cwd with
         | None -> fn actions

lib_eio_posix/process.ml

@@ -30,7 +30,7 @@ module Impl = struct
       ] in
       let actions = match pgid with
         | None -> actions
-        | Some pgid -> Low_level.Process.Fork_action.setpgid ~pid:0 ~pgid :: actions
+        | Some pgid -> Low_level.Process.Fork_action.setpgid pgid :: actions
       in
       let with_actions cwd fn = match cwd with
         | None -> fn actions