1
Fork 0

add basic transction control

This commit is contained in:
Jake Wheat 2015-08-04 22:53:08 +03:00
parent a9d51d1ebb
commit 666d1f877f
4 changed files with 89 additions and 7 deletions
Language/SQL/SimpleSQL

View file

@ -562,6 +562,22 @@ which have been changed to try to improve the layout of the output.
== access control
> statement _ StartTransaction =
> texts ["start", "transaction"]
> statement _ (Savepoint nm) =
> text "savepoint" <+> name nm
> statement _ (ReleaseSavepoint nm) =
> texts ["release", "savepoint"] <+> name nm
> statement _ Commit =
> text "commit"
> statement _ (Rollback mn) =
> text "rollback"
> <+> maybe empty (\n -> texts ["to","savepoint"] <+> name n) mn
== transactions
== sessions