       cFromEnum  `CopyDirection' ,
       cIntConv   `Stream'        } -> `Status' cToEnum #}
 
+
+--------------------------------------------------------------------------------
+-- Internal utilities
+--------------------------------------------------------------------------------
+
+moduleErr :: String -> String -> a
+moduleErr fun msg =  error ("Foreign.CUDA." ++ fun ++ ':':' ':msg)
+

--
malloc3D :: (Int64,Int64,Int64)         -- ^ allocation (width,height,depth) in bytes
         -> IO (Either String (DevicePtr (),Int64))
malloc3D = error "not implemented yet"


-- |

         -> Int64                       -- ^ The allocation pitch, as returned by 'malloc3D'
         -> Int                         -- ^ Value to set for each byte
         -> IO (Maybe String)
memset3D = moduleErr "memset3D" "not implemented yet"


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