parserViewAll :: Parser Command
parserViewAll =
  ViewAll
  <$> parseFields "ul"
parserViewAll :: Parser Command
parserViewAll =
  ViewAll
  <$> parseFields "ul"
parserViewAll =
  ViewAll
  <$> parseFields "ul"