 
 {#pointer *cl_image_format as CLImageFormat_p#}
 
-type CLImageChannelOrder_ = {#type cl_channel_order#}
-type CLImageChannelDataType_ = {#type cl_channel_type#}
+--type CLImageChannelOrder_ = {#type cl_channel_order#}
+--type CLImageChannelDataType_ = {#type cl_channel_type#}
 
 -- -----------------------------------------------------------------------------
 newtype ErrorCode = ErrorCode CLint deriving( Eq )

  CLError(..), ErrorCode(..), CLDeviceFPConfig(..), CLDeviceMemCacheType(..), 
  CLDeviceExecCapability(..), CLDeviceLocalMemType(..), CLDeviceType(..), 
  CLCommandQueueProperty(..), CLCommandType(..),  CLCommandExecutionStatus(..), 
  CLProfilingInfo(..), CLImageFormat(..), CLPlatformInfo(..), CLMemFlag(..),
  -- * Functions
  clSuccess, wrapPError, getCLValue, getImageFormat, 
  getDeviceLocalMemType, getDeviceMemCacheType, 
  getCommandType, getCommandExecutionStatus, bitmaskToDeviceTypes, 
  bitmaskFromFlags, bitmaskToCommandQueueProperties, bitmaskToFPConfig, 
  bitmaskToExecCapability )
       where

-- -----------------------------------------------------------------------------

{#enum CLMemFlag {} deriving( Show ) #}

-- -----------------------------------------------------------------------------
getCLValue :: (Enum a, Integral b) => a -> b
getCLValue = fromIntegral . fromEnum

