From 376b67be9eb07358a90e7a19aa4eda1b961f84e7 Mon Sep 17 00:00:00 2001
From: Diogo Biazus <diogob@gmail.com>
Date: Wed, 29 Jun 2016 00:18:29 -0400
Subject: [PATCH] Remove unnecessary string conversions

---
 src/PostgREST/Parsers.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/PostgREST/Parsers.hs b/src/PostgREST/Parsers.hs
index d563c1385..34ce7eb64 100644
--- a/src/PostgREST/Parsers.hs
+++ b/src/PostgREST/Parsers.hs
@@ -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 ',')