ToolSupport.hs

-- | @hs-bindgen-cli tool-support@ commands
--
-- Intended for qualified import.
--
-- > import HsBindgen.Cli.ToolSupport qualified as ToolSupport
module HsBindgen.Cli.ToolSupport (
    -- * CLI help
    info
    -- * Commands
  , Cmd(..)
  , parseCmd
    -- * Execution
  , exec
  ) where

import Options.Applicative hiding (info)

import HsBindgen.App
import HsBindgen.Cli.ToolSupport.Literate qualified as Literate

{-------------------------------------------------------------------------------
  CLI help
-------------------------------------------------------------------------------}

info :: InfoMod a
info = progDesc "Tool support commands, not meant to be used directly"

{-------------------------------------------------------------------------------
  Commands
-------------------------------------------------------------------------------}

-- | Ordered lexicographically
newtype Cmd =
    CmdLiterate Literate.Opts

parseCmd :: Parser Cmd
parseCmd = subparser $ mconcat [
      cmd_ "literate" CmdLiterate Literate.parseOpts Literate.info
    ]

{-------------------------------------------------------------------------------
  Execution
-------------------------------------------------------------------------------}

exec :: GlobalOpts -> Cmd -> IO ()
exec _gopts = \case
    CmdLiterate opts -> Literate.exec opts