System.Event.KQueue conditionally uses BangPatterns

[ghc-base.git] / System / Event / KQueue.hsc

diff --git a/System/Event/KQueue.hsc b/System/Event/KQueue.hsc
index b272bcf..0ab330b 100644 (file)
--- a/System/Event/KQueue.hsc
+++ b/System/Event/KQueue.hsc
@@ -1,5 +1,5 @@
 {-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
-    NoImplicitPrelude, RecordWildCards #-}
+    NoImplicitPrelude, RecordWildCards, BangPatterns #-}
 
 module System.Event.KQueue
     (
@@ -26,7 +26,7 @@ import Control.Monad (when, unless)
 import Data.Bits (Bits(..))
 import Data.Word (Word16, Word32)
 import Foreign.C.Error (throwErrnoIfMinus1)
-import Foreign.C.Types (CInt, CIntPtr, CLong, CTime, CUIntPtr)
+import Foreign.C.Types (CInt, CLong, CTime)
 import Foreign.Marshal.Alloc (alloca)
 import Foreign.Ptr (Ptr, nullPtr)
 import Foreign.Storable (Storable(..))
@@ -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>