From 5f3e4b478e1b84a23086f04c97a8fd6ea258de2e Mon Sep 17 00:00:00 2001
From: Favonia <favonia@gmail.com>
Date: Tue, 24 May 2011 18:47:35 -0400
Subject: [PATCH] Fix typos in future process group API

---
 System/Posix/Process.hsc | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/System/Posix/Process.hsc b/System/Posix/Process.hsc
index d97b81a..5b91b41 100644
--- a/System/Posix/Process.hsc
+++ b/System/Posix/Process.hsc
@@ -139,9 +139,10 @@ foreign import ccall unsafe "getpgid"
 -- | 'createProcessGroup' calls @setpgid(0,0)@ to make
 --   the current process a new process group leader.
 createProcessGroup :: IO ProcessGroupID
-createProcessGroup pid = do
-  throwErrnoIfMinus1_ "createProcessGroupFor" (c_setpgid 0 0)
-  return pid
+createProcessGroup = do
+  throwErrnoIfMinus1_ "createProcessGroup" (c_setpgid 0 0)
+  pgid <- getProcessGroupID
+  return pgid
 -}
 
 -- | @'createProcessGroupFor' pid@ calls @setpgid@ to make
@@ -164,8 +165,8 @@ joinProcessGroup pgid =
 -- | @'setProcessGroupID' pgid@ calls @setpgid@ to set the
 --   'ProcessGroupID' of the current process to @pgid@.
 setProcessGroupID :: ProcessGroupID -> IO ()
-setProcessGroupID pid pgid =
-  throwErrnoIfMinus1_ "setProcessGroupIDOf" (c_setpgid pid pgid)
+setProcessGroupID pgid =
+  throwErrnoIfMinus1_ "setProcessGroupID" (c_setpgid 0 pgid)
 -}
 
 -- | @'setProcessGroupIDOf' pid pgid@ calls @setpgid@ to set the
-- 
GitLab