{"action":"opened","issue":{"url":"https://api.github.com/repos/pcapriotti/optparse-applicative/issues/193","repository_url":"https://api.github.com/repos/pcapriotti/optparse-applicative","labels_url":"https://api.github.com/repos/pcapriotti/optparse-applicative/issues/193/labels{/name}","comments_url":"https://api.github.com/repos/pcapriotti/optparse-applicative/issues/193/comments","events_url":"https://api.github.com/repos/pcapriotti/optparse-applicative/issues/193/events","html_url":"https://github.com/pcapriotti/optparse-applicative/issues/193","id":141738052,"number":193,"title":"Commands are not disambiguated","user":{"login":"deepfire","id":452652,"avatar_url":"https://avatars.githubusercontent.com/u/452652?v=3","gravatar_id":"","url":"https://api.github.com/users/deepfire","html_url":"https://github.com/deepfire","followers_url":"https://api.github.com/users/deepfire/followers","following_url":"https://api.github.com/users/deepfire/following{/other_user}","gists_url":"https://api.github.com/users/deepfire/gists{/gist_id}","starred_url":"https://api.github.com/users/deepfire/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/deepfire/subscriptions","organizations_url":"https://api.github.com/users/deepfire/orgs","repos_url":"https://api.github.com/users/deepfire/repos","events_url":"https://api.github.com/users/deepfire/events{/privacy}","received_events_url":"https://api.github.com/users/deepfire/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2016-03-17T23:55:51Z","updated_at":"2016-03-17T23:55:51Z","closed_at":null,"body":"Commands are not disambiguated (while options are):\r\n```\r\nparams_parser ∷ Parser Params\r\nparams_parser =\r\n    Params\r\n    <$> strOption (long \"server\"  <> metavar \"HOSTNAME\" <> help \"Server\")\r\n    <*> strOption (long \"login\"   <> metavar \"LOGIN\" <> help \"Username\")\r\n    <*> hsubparser\r\n            (command \"branches\"\r\n             (info\r\n              (Branches\r\n               <$> subparser ((command \"git\"    (info (pure Git)    $ progDesc \"Git branches\")) <>\r\n                              (command \"jira\"     (info (pure Jira)     $ progDesc \"Jira branches\"))))\r\n              (fullDesc <> progDesc \"Print and intersect git/jira branches\")))\r\n```"}}