query :: ParsecT String u Identity Query
query =
  do
    items <- queryItem `sepBy` string (Text.unpack querySeparator)
    return $ fromMaybe mempty . normalizeQuery $ items
    <?> "query"
query :: ParsecT String u Identity Query
query =
  do
    items <- queryItem `sepBy` string (Text.unpack querySeparator)
    return $ fromMaybe mempty . normalizeQuery $ items
    <?> "query"
query =
  do
    items <- queryItem `sepBy` string (Text.unpack querySeparator)
    return $ fromMaybe mempty . normalizeQuery $ items
    <?> "query"