optparse-applicative: как справиться с ситуацией без аргументов в синтаксисе Arrow

Пример: https://github.com/pcapriotti/optparse-applicative/blob/master/tests/Examples/Cabal.hs#L46-L62

parser :: Parser Args
parser = runA $ proc () -> do
  opts <- asA commonOpts -< ()
  cmds <- (asA . hsubparser)
            ( command "install"
              (info installParser
                    (progDesc "Installs a list of packages"))
           <> command "update"
              (info updateParser
                    (progDesc "Updates list of known packages"))
           <> command "configure"
              (info configureParser
                    (progDesc "Prepare to build the package"))
           <> command "build"
              (info buildParser
                    (progDesc "Make this package ready for installation")) ) -< ()
  A version >>> A helper -< Args opts cmds

...

pinfo :: ParserInfo Args
pinfo = info parser
  ( progDesc "An example modelled on cabal" )

main :: IO ()
main = do
  r <- execParser pinfo
  print r

Итак, по умолчанию, когда я не использую аргументы, отображается информация об использовании. Я хочу использовать регистр без аргументов, а также с одним [Пользовательским аргументом] (с пользовательским я получаю сообщение об ошибке: Invalid argument 'regreg')

Как я могу обрабатывать здесь пустые и настраиваемые аргументы?


command-line-arguments haskell arrows applicative optparse-applicative
person cnd    schedule 09.07.2015    source источник

Ответы (1)


arrow_upward
3
arrow_downward

A в https://hackage.haskell.org/package/optparse-applicative-0.11.0.2/docs/Options-Applicative-Arrows.html не ArrowPlus. Я не уверен, что это возможно (учитывая, что f это Alternative), но пока вам нужно использовать синтаксис Alternative:

subparser (command "foo" ... ...) <|> pure DefaultCommand
person phadej    schedule 11.07.2015