module BNFC.Backend.Txt2Tags.Options where import BNFC.Prelude import Options.Applicative newtype Txt2TagsBackendOptions = TxtOpts {target :: String} txt2tagsOptionsParser :: Parser Txt2TagsBackendOptions txt2tagsOptionsParser = TxtOpts <$> oTarget where -- target option. oTarget = strOption ( short 't' <> long "target" <> metavar "TARGET" <> help "Set txt2tags target document type (for the Makefile)" <> showDefault <> value "html" )