module LLVM.General.Internal.CommandLine where
import qualified LLVM.General.Internal.FFI.CommandLine as FFI
import Foreign.Ptr
import Control.Monad.AnyCont
import Control.Monad.IO.Class
import LLVM.General.Internal.Coding
import LLVM.General.Internal.String ()
parseCommandLineOptions :: [String] -> Maybe String -> IO ()
parseCommandLineOptions args overview = flip runAnyContT return $ do
args <- encodeM args
overview <- maybe (return nullPtr) encodeM overview
liftIO $ FFI.parseCommandLineOptions args overview