Skip to content
This repository has been archived by the owner on Jun 28, 2022. It is now read-only.

Commit

Permalink
FIXED: GHC 7.6 warnings: FFI constructor exposure.
Browse files Browse the repository at this point in the history
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(..))
  • Loading branch information
Michal J. Gajda committed Jul 2, 2012
1 parent 4d43e58 commit 92f252c
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/Control/Parallel/OpenCL/Context.chs
Expand Up @@ -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(
Expand Down
2 changes: 1 addition & 1 deletion src/Control/Parallel/OpenCL/Query.chs
Expand Up @@ -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_,
Expand Down

0 comments on commit 92f252c

Please sign in to comment.