Commands are not disambiguated

[deepfire]

Commands are not disambiguated (while options are):

params_parser ∷ Parser Params
params_parser =
    Params
    <$> strOption (long "server"  <> metavar "HOSTNAME" <> help "Server")
    <*> strOption (long "login"   <> metavar "LOGIN" <> help "Username")
    <*> hsubparser
            (command "branches"
             (info
              (Branches
               <$> subparser ((command "git"    (info (pure Git)    $ progDesc "Git branches")) <>
                              (command "jira"     (info (pure Jira)     $ progDesc "Jira branches"))))
              (fullDesc <> progDesc "Print and intersect git/jira branches")))

[HuwCampbell]

Indeed. I don't think this is a very high priority, but I can see some might find it useful.