starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

add syntax for new grouping expressions

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 19:17:03 +02:00
parent 7d094182b7
commit b703e04af3
9 changed files with 266 additions and 28 deletions
tools/Language/SQL/SimpleSQL
FullQueries.lhs

2
tools/Language/SQL/SimpleSQL/FullQueries.lhs
View file

@ -30,7 +30,7 @@ Some tests for parsing full queries.
> "+" (Iden "d")])]
> ,qeFrom = [TRSimple "t", TRSimple "u"]
> ,qeWhere = Just $ BinOp (Iden "a") ">" (NumLit "5")
> ,qeGroupBy = [Iden "a"]
> ,qeGroupBy = [SimpleGroup $ Iden "a"]
> ,qeHaving = Just $ BinOp (App "count" [NumLit "1"])
> ">" (NumLit "5")
> ,qeOrderBy = [OrderField (Iden "s") Asc NullsOrderDefault]