 -- memory is suitably aligned for any kind of variable, and is not cleared.
 --
 malloc       :: Int64 -> IO (Either String (DevicePtr a))
-malloc bytes = do
+malloc bytes =  do
     (rv,ptr) <- cudaMalloc bytes
     case rv of
         Success -> Right `fmap` newDevicePtr (castPtr ptr)

--    memset2D,
--    memset3D,

    -- ** Marshalling
    peek,
    poke,

    with,
    newArray,
    withArray,
    withArrayLen,

    -- ** Copying
  )
  where

import Data.Int
import Control.Exception

import Foreign.C
import Foreign.Ptr
