 getDeviceProperties n =  resultIfOk `fmap` cudaGetDeviceProperties n
 
 {# fun unsafe cudaGetDeviceProperties
-    { alloca- `DeviceProperties' peek*,
-              `Int'                   } -> `Result' cToEnum #}
+    { alloca- `DeviceProperties' peek* ,
+              `Int'                    } -> `Result' cToEnum #}
 
 --
 -- Set device to be used for GPU execution

        _       -> return.Left $ getErrorString rv

{# fun unsafe cudaMalloc
    { alloca-  `Ptr ()'  peek*,
      cIntConv `Integer'      } -> `Result' cToEnum #}


--
-- Free previously allocated memory on the device

    --
    -- Memory management
    --
    malloc, mallocPitch,
    memcpy, memcpyAsync,
    memset,


    --
    -- Stream management
    --
    streamCreate,
    streamDestroy,
    streamQuery,
    streamSynchronize
  ) where

import Foreign.CUDA.Types
