From: Ian Lynagh <igloo@earth.li>
Date: Sat, 4 Sep 2010 22:37:03 +0000 (+0000)
Subject: Fix the build when HAVE_KQUEUE but not HAVE_KEVENT64
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bf1530efdee344ee89cac1e37cb208222b4edff2;p=ghc-base.git

Fix the build when HAVE_KQUEUE but not HAVE_KEVENT64
---

diff --git a/System/Event/KQueue.hsc b/System/Event/KQueue.hsc
index 9c7c36c..832a3a8 100644
--- a/System/Event/KQueue.hsc
+++ b/System/Event/KQueue.hsc
@@ -45,6 +45,8 @@ import qualified System.Event.Array as A
 import Data.Int (Int64)
 import Data.Word (Word64)
 import Foreign.C.Types (CUInt)
+#else
+import Foreign.C.Types (CIntPtr, CUIntPtr)
 #endif
 
 #include <sys/types.h>