{-# LINE 1 "LLVM/FFI/BitWriter.hsc" #-}
{-# LANGUAGE CPP, ForeignFunctionInterface, EmptyDataDecls #-}
{-# LINE 2 "LLVM/FFI/BitWriter.hsc" #-}

module LLVM.FFI.BitWriter where
import Foreign.C.String(CString)

{-# LINE 6 "LLVM/FFI/BitWriter.hsc" #-}
import Foreign.C.Types(CInt(..))

{-# LINE 10 "LLVM/FFI/BitWriter.hsc" #-}

import LLVM.FFI.Core

foreign import ccall unsafe "LLVMWriteBitcodeToFile" writeBitcodeToFile
    :: ModuleRef -> CString -> IO CInt
foreign import ccall unsafe "LLVMWriteBitcodeToFileHandle" writeBitcodeToFileHandle
    :: ModuleRef -> CInt -> IO CInt
foreign import ccall unsafe "LLVMWriteBitcodeToFD" writeBitcodeToFD
    :: ModuleRef -> CInt -> CInt -> CInt -> IO CInt