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

move the typed literal parser around

Browse source 
implement unique predicate, match predicate
change the representation of quantified comparison predicates
This commit is contained in:
Jake Wheat 2014-04-17 22:35:43 +03:00
parent 0d3f552ede
commit d38a5a743a
5 changed files with 126 additions and 33 deletions
tools/Language/SQL/SimpleSQL
ValueExprs.lhs

12
tools/Language/SQL/SimpleSQL/ValueExprs.lhs
View file

@ -172,14 +172,14 @@ Tests for parsing value expressions
> ,("a not in (select a from t)"
> ,In False (Iden "a") (InQueryExpr ms))
> ,("a > all (select a from t)"
> ,BinOp (Iden "a") ">" (SubQueryExpr SqAll ms))
> --,("a > all (select a from t)"
> -- ,BinOp (Iden "a") ">" (SubQueryExpr SqAll ms))
> ,("a = some (select a from t)"
> ,BinOp (Iden "a") "=" (SubQueryExpr SqSome ms))
> --,("a = some (select a from t)"
> -- ,BinOp (Iden "a") "=" (SubQueryExpr SqSome ms))
> ,("a <= any (select a from t)"
> ,BinOp (Iden "a") "<=" (SubQueryExpr SqAny ms))
> --,("a <= any (select a from t)"
> -- ,BinOp (Iden "a") "<=" (SubQueryExpr SqAny ms))
> ]
> where
> ms = makeSelect