     getSize = getSize . unS
 
 
-cvRGBtoGRAY = 7 :: CInt-- NOTE: This will break.
-cvRGBtoLAB = 45 :: CInt-- NOTE: This will break.
-
-
 #c
 enum CvtFlags {
     CvtFlip   = CV_CVTIMG_FLIP,

data BGR

data LAB
data RGBA
data LAB_Channel = LAB_L | LAB_A | LAB_B deriving (Eq,Ord,Enum)

-- | Type family for expressing which channels a colorspace contains. This needs to be fixed wrt. the BGR color space.
type family ChannelOf a :: *
type instance ChannelOf RGB_Channel = RGB
type instance ChannelOf LAB_Channel = LAB

-- Bit Depths
type D8  = Word8

, tileImages

-- * Conversions
, convertTo
, rgbToGray
, rgbToGray8
, grayToRGB
