Use brackets to specify subqueries

2015-11-23 10:58:04 -08:00
parent 64da08b220
commit 029276bd62
3 changed files with 9 additions and 9 deletions
@@ -51,7 +51,7 @@ pFieldForest :: Parser [Tree SelectItem]
 pFieldForest = pFieldTree `sepBy1` lexeme (char ',')

 pFieldTree :: Parser (Tree SelectItem)
-pFieldTree = try (Node <$> pSelect <*> between (char '(') (char ')') pFieldForest)
+pFieldTree = try (Node <$> pSelect <*> between (char '{') (char '}') pFieldForest)
          <|>     Node <$> pSelect <*> pure []

 pStar :: Parser Text