diff --git a/src/Control/Parallel/OpenCL/Context.chs b/src/Control/Parallel/OpenCL/Context.chs
index 205ff1c..7d8625d 100644
--- a/src/Control/Parallel/OpenCL/Context.chs
+++ b/src/Control/Parallel/OpenCL/Context.chs
@@ -42,7 +42,7 @@ module Control.Parallel.OpenCL.Context(
 import Foreign( 
   Ptr, FunPtr, nullPtr, castPtr, alloca, allocaArray, peek, peekArray, 
   ptrToIntPtr, intPtrToPtr, withArray )
-import Foreign.C.Types( CSize )
+import Foreign.C.Types( CSize(..), CInt(..), CUInt(..), CULLong(..) ) -- expose FFI type constructors
 import Foreign.C.String( CString, peekCString )
 import Foreign.Storable( sizeOf )
 import Control.Parallel.OpenCL.Types( 
diff --git a/src/Control/Parallel/OpenCL/Query.chs b/src/Control/Parallel/OpenCL/Query.chs
index 1c19ca2..3e2c171 100644
--- a/src/Control/Parallel/OpenCL/Query.chs
+++ b/src/Control/Parallel/OpenCL/Query.chs
@@ -67,7 +67,7 @@ module Control.Parallel.OpenCL.Query(
 -- -----------------------------------------------------------------------------
 import Foreign( Ptr, nullPtr, castPtr, alloca, allocaArray, peek, peekArray )
 import Foreign.C.String( CString, peekCString )
-import Foreign.C.Types( CSize )
+import Foreign.C.Types( CSize(..), CInt(..), CUInt(..), CULLong(..) ) -- expose FFI type constructors
 import Foreign.Storable( sizeOf )
 import Control.Parallel.OpenCL.Types( 
   CLbool, CLint, CLuint, CLulong, CLPlatformInfo_, CLDeviceType_,