module LLVM.Internal.Threading (
isMultithreaded
) where
import LLVM.Prelude
import qualified LLVM.Internal.FFI.Threading as FFI
import LLVM.Internal.Coding
isMultithreaded :: IO Bool
isMultithreaded :: IO Bool
isMultithreaded = IO LLVMBool
FFI.isMultithreaded IO LLVMBool -> (LLVMBool -> IO Bool) -> IO Bool
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= LLVMBool -> IO Bool
forall (d :: * -> *) h c. (DecodeM d h c, HasCallStack) => c -> d h
decodeM