From 92f252c03b2818fccc1cfff0e8712ed3afc60112 Mon Sep 17 00:00:00 2001 From: "Michal J. Gajda" Date: Mon, 2 Jul 2012 13:48:13 +0200 Subject: [PATCH] FIXED: GHC 7.6 warnings: FFI constructor exposure. It seems that FFI _constructors_ will need to be exposed in GHC 7.6, for all types actually used for foreign calls. To silence warnings I added: import Foreign.C.Types(CSize(..), CInt(..), CUInt(..), CULLong(..)) --- src/Control/Parallel/OpenCL/Context.chs | 2 +- src/Control/Parallel/OpenCL/Query.chs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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_,