 , tileImages
 
 -- * Conversions
-, rgbToGray 
+, rgbToGray
 , grayToRGB
-, rgbToLab 
+, rgbToLab
 , bgrToRgb
 , rgbToBgr
-, unsafeImageTo32F 
-, unsafeImageTo8Bit 
+, unsafeImageTo32F
+, unsafeImageTo8Bit
 
 -- * Low level access operations
 , BareImage(..)

-- * Basic types
 Image(..)
, create
, empty 
, emptyCopy 
, cloneImage
, withClone
, withCloneValue

    save filename image = primitiveSave filename (unS $ image)

instance Save (Image GrayScale D32) where
    save filename image = primitiveSave filename (unS . unsafeImageTo8Bit $ image)

primitiveSave :: FilePath -> BareImage -> IO ()
primitiveSave filename fpi = do
       exists <- doesDirectoryExist (takeDirectory filename)
       when (not exists) $ throw (CvIOError $ "Directory does not exist: " ++ (takeDirectory filename))
       withCString  filename $ \name  ->
