optparse-applicative:如何处理Arrow语法中的无参数情况

Question

下面是一个例子：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')

我如何在这里处理空参数和自定义参数？

Answer 1

我不确定它是否可以(考虑到f是Alternative)，但现在您必须使用Alternative语法：

subparser (command "foo" ... ...) <|> pure DefaultCommand