-- GENERATED by C->Haskell Compiler, version 0.20.1 The shapeless maps, 31 Oct 2014 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Foreign/CUDA/Driver/Utils.chs" #-} {-# LANGUAGE ForeignFunctionInterface #-} -------------------------------------------------------------------------------- -- | -- Module : Foreign.CUDA.Driver.Utils -- Copyright : [2009..2014] Trevor L. McDonell -- License : BSD -- -- Utility functions -- -------------------------------------------------------------------------------- module Foreign.CUDA.Driver.Utils (driverVersion) where {-# LINE 16 "./Foreign/CUDA/Driver/Utils.chs" #-} -- Friends import Foreign.CUDA.Driver.Error import Foreign.CUDA.Internal.C2HS -- System import Foreign import Foreign.C -- | -- Return the version number of the installed CUDA driver -- {-# INLINEABLE driverVersion #-} driverVersion :: IO Int driverVersion = resultIfOk =<< cuDriverGetVersion {-# INLINE cuDriverGetVersion #-} cuDriverGetVersion :: IO ((Status), (Int)) cuDriverGetVersion = alloca $ \a1' -> cuDriverGetVersion'_ a1' >>= \res -> let {res' = cToEnum res} in peekIntConv a1'>>= \a1'' -> return (res', a1'') {-# LINE 36 "./Foreign/CUDA/Driver/Utils.chs" #-} foreign import ccall unsafe "Foreign/CUDA/Driver/Utils.chs.h cuDriverGetVersion" cuDriverGetVersion'_ :: ((Ptr CInt) -> (IO CInt))