-- Commands

parseCommand :: Parser Command
parseCommand = subparser $
               command "add" (parseAdd `withInfo` "Add a username, location and password to your datastore.") <>
               command "view" (parseView `withInfo` "View account info.") <>
               command "update" (parseUpdate `withInfo` "Update account info.") <>
                 command "remove" (parseRemove `withInfo` "Remove a username and password from the datastor.") <>
               command "migrate" (parseMigrate `withInfo` "Migrate old account data from initial release to new data structure. Only use this for data created before 2016-10-18.")
parseCommand :: Parser Command
parseCommand = subparser $
               command "add" (parseAdd `withInfo` "Add a username, location and password to your datastore.") <>
               command "view" (parseView `withInfo` "View account info.") <>
               command "update" (parseUpdate `withInfo` "Update account info.") <>
                 command "remove" (parseRemove `withInfo` "Remove a username and password from the datastor.") <>
               command "migrate" (parseMigrate `withInfo` "Migrate old account data from initial release to new data structure. Only use this for data created before 2016-10-18.")
parseCommand = subparser $
               command "add" (parseAdd `withInfo` "Add a username, location and password to your datastore.") <>
               command "view" (parseView `withInfo` "View account info.") <>
               command "update" (parseUpdate `withInfo` "Update account info.") <>
                 command "remove" (parseRemove `withInfo` "Remove a username and password from the datastor.") <>
               command "migrate" (parseMigrate `withInfo` "Migrate old account data from initial release to new data structure. Only use this for data created before 2016-10-18.")