From: Ian Lynagh <igloo@earth.li>
Date: Wed, 4 Apr 2007 14:45:08 +0000 (+0000)
Subject: Fix braino
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=89ca8ee48a058fb251b241d20450ed532d49d579;hp=a2a70b9bf60672c72b35654105402cf21238b6f4;p=haskell-directory.git

Fix braino
---

diff --git a/System/Posix/Signals.hs b/System/Posix/Signals.hs
index 962526d..2af259a 100644
--- a/System/Posix/Signals.hs
+++ b/System/Posix/Signals.hs
@@ -281,7 +281,7 @@ signalProcessGroup sig pgid
   = throwErrnoIfMinus1_ "signalProcessGroup" (c_killpg (fromIntegral pgid) sig)
 
 foreign import ccall unsafe "killpg"
-  c_killpg :: CInt -> CInt -> IO CInt
+  c_killpg :: CPid -> CInt -> IO CInt
 
 -- | @raiseSignal int@ calls @kill@ to signal the current process
 --   with interrupt signal @int@.