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

add support for ? for parameterized queries

Browse source
This commit is contained in:
Jake Wheat 2013-12-19 10:44:20 +02:00
parent 72d7b9428f
commit b68c116839
5 changed files with 18 additions and 0 deletions
tools/Language/SQL/SimpleSQL
ScalarExprs.lhs

7
tools/Language/SQL/SimpleSQL/ScalarExprs.lhs
View file

@ -12,6 +12,7 @@ Tests for parsing scalar expressions
> [literals
> ,identifiers
> ,star
> ,parameter
> ,dots
> ,app
> ,caseexp
@ -56,6 +57,12 @@ Tests for parsing scalar expressions
> --,("ROW(t.*,42)", App "ROW" [Star2 "t", NumLit "42"])
> ]
> parameter :: TestItem
> parameter = Group "parameter" $ map (uncurry TestScalarExpr)
> [("?", Parameter)
> ]
> dots :: TestItem
> dots = Group "dot" $ map (uncurry TestScalarExpr)
> [("t.a", BinOp (Iden "t") "." (Iden "a"))