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

refactor dialect into a non enum and separate to own file

Browse source
This commit is contained in:
Jake Wheat 2016-02-12 12:51:06 +02:00
parent 2b73907119
commit 1b4eefc431
22 changed files with 304 additions and 252 deletions
tools/Language/SQL/SimpleSQL
SQL2011Bits.lhs

16
tools/Language/SQL/SimpleSQL/SQL2011Bits.lhs
View file

@ -22,7 +22,7 @@ commit, savepoint, etc.), and session management (set).
BEGIN is not in the standard!
> (TestStatement SQL2011
> (TestStatement ansi2011
> "start transaction"
> $ StartTransaction)
@ -77,7 +77,7 @@ BEGIN is not in the standard!
<savepoint specifier> ::=
<savepoint name>
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "savepoint difficult_bit"
> $ Savepoint $ Name "difficult_bit")
@ -87,7 +87,7 @@ BEGIN is not in the standard!
<release savepoint statement> ::=
RELEASE SAVEPOINT <savepoint specifier>
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "release savepoint difficult_bit"
> $ ReleaseSavepoint $ Name "difficult_bit")
@ -97,11 +97,11 @@ BEGIN is not in the standard!
<commit statement> ::=
COMMIT [ WORK ] [ AND [ NO ] CHAIN ]
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "commit"
> $ Commit)
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "commit work"
> $ Commit)
@ -114,15 +114,15 @@ BEGIN is not in the standard!
<savepoint clause> ::=
TO SAVEPOINT <savepoint specifier>
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "rollback"
> $ Rollback Nothing)
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "rollback work"
> $ Rollback Nothing)
> ,(TestStatement SQL2011
> ,(TestStatement ansi2011
> "rollback to savepoint difficult_bit"
> $ Rollback $ Just $ Name "difficult_bit")