{-# LINE 1 "./Foreign/CUDA/Solver/Dense/Stream.chs" #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE ForeignFunctionInterface #-}
module Foreign.CUDA.Solver.Dense.Stream (
setStream,
) where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import Foreign.CUDA.Driver.Stream
import Foreign.CUDA.Solver.Dense.Context
import Foreign.CUDA.Solver.Error
import Foreign.C
import Foreign.Ptr
{-# LINE 27 "./Foreign/CUDA/Solver/Dense/Stream.chs" #-}
{-# INLINEABLE setStream #-}
setStream :: (Handle) -> (Stream) -> IO ((()))
setStream a1 a2 =
let {a1' = useHandle a1} in
let {a2' = useStream a2} in
setStream'_ a1' a2' >>= \res ->
checkStatus res >>= \res' ->
return (res')
{-# LINE 41 "./Foreign/CUDA/Solver/Dense/Stream.chs" #-}
foreign import ccall unsafe "Foreign/CUDA/Solver/Dense/Stream.chs.h cusolverDnSetStream"
setStream'_ :: ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO C2HSImp.CInt)))