[commit: unix] master: Fix typos in future process group API (5f3e4b4)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5f3e4b478e1b84a23086f04c97a8fd6ea258de2e

>---------------------------------------------------------------

commit 5f3e4b478e1b84a23086f04c97a8fd6ea258de2e
Author: Favonia <favonia at gmail.com>
Date:   Tue May 24 18:47:35 2011 -0400

    Fix typos in future process group API

>---------------------------------------------------------------

 System/Posix/Process.hsc |   11 ++++++-----
 1 files 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 at .
 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