[commit: base] master: Fix wrong type in FFI call to eventfd_write in GHC.Event.Control. (0fb30f2)

[Johan Tibell]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0fb30f23a01ad5f9dca743df824c6fd150ac4c33

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

commit 0fb30f23a01ad5f9dca743df824c6fd150ac4c33
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Fri Jan 4 11:00:22 2013 -0500

    Fix wrong type in FFI call to eventfd_write in GHC.Event.Control.

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

 GHC/Event/Control.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Event/Control.hs b/GHC/Event/Control.hs
index 457d853..34b746a 100644
--- a/GHC/Event/Control.hs
+++ b/GHC/Event/Control.hs
@@ -48,7 +48,7 @@ import System.Posix.Types (Fd)
 
 #if defined(HAVE_EVENTFD)
 import Foreign.C.Error (throwErrnoIfMinus1)
-import Foreign.C.Types (CULong(..))
+import Foreign.C.Types (CULLong(..))
 #else
 import Foreign.C.Error (eAGAIN, eWOULDBLOCK, getErrno, throwErrno)
 #endif
@@ -198,7 +198,7 @@ foreign import ccall unsafe "sys/eventfd.h eventfd"
    c_eventfd :: CInt -> CInt -> IO CInt
 
 foreign import ccall unsafe "sys/eventfd.h eventfd_write"
-   c_eventfd_write :: CInt -> CULong -> IO CInt
+   c_eventfd_write :: CInt -> CULLong -> IO CInt
 #endif
 
 -- Used to tell the RTS how it can send messages to the I/O manager.