Merge pull request #656 from diogob/simplify-pTreePath

Remove unnecessary string conversions
2016-06-29 20:37:15 -07:00
parent 67668a02c2 376b67be9e
commit f7aa8b7ad5
1 changed files with 1 additions and 3 deletions
@@ -61,9 +61,7 @@ pTreePath :: Parser (Path,Field)
 pTreePath = do
  p <- pFieldName `sepBy1` pDelimiter
  jp <- optionMaybe pJsonPath
-  let pp = map cs p
-      jpp = map cs <$> jp
-  return (init pp, (last pp, jpp))
+  return (init p, (last p, jp))

 pFieldForest :: Parser [Tree SelectItem]
 pFieldForest = pFieldTree `sepBy1` lexeme (char ',')