parseView :: Parser Command
parseView =
  (View
  <$> optional parseUsername
  <*> optional parseLocation
  <*> optional parseNotes
  <*> parseFields "p")
  <|>
  (subparser $ command "all" (parserViewAll `withInfo` "View all accounts."))
parseView :: Parser Command
parseView =
  (View
  <$> optional parseUsername
  <*> optional parseLocation
  <*> optional parseNotes
  <*> parseFields "p")
  <|>
  (subparser $ command "all" (parserViewAll `withInfo` "View all accounts."))
parseView =
  (View
  <$> optional parseUsername
  <*> optional parseLocation
  <*> optional parseNotes
  <*> parseFields "p")
  <|>
  (subparser $ command "all" (parserViewAll `withInfo` "View all accounts."))