diff options
Diffstat (limited to 'src/clojure/contrib/sql.clj')
| -rw-r--r-- | src/clojure/contrib/sql.clj | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/clojure/contrib/sql.clj b/src/clojure/contrib/sql.clj index c3615efd..f4e1ac3f 100644 --- a/src/clojure/contrib/sql.clj +++ b/src/clojure/contrib/sql.clj @@ -41,9 +41,17 @@ [& body] `(transaction* (fn [] ~@body))) -(defalias set-rollback-only set-rollback-only*) +(defn set-rollback-only + "Marks the outermost transaction such that it will rollback rather than + commit when complete" + [] + (rollback-only true)) -(defalias is-rollback-only is-rollback-only*) +(defn is-rollback-only + "Returns true if the outermost transaction will rollback rather than + commit when complete" + [] + (rollback-only)) (defn do-commands "Executes SQL commands on the open database connection." |