diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-01-19 22:51:50 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-01-19 22:51:50 +0000 |
| commit | 936ca26a3f7e9b72a8752ba2ce8dbf0a7173e98a (patch) | |
| tree | 6114bb8cc085ac6a8688fc62cec5ba5715995498 /src/clojure/contrib/sql | |
| parent | 7a93104e950436c0f532aabdc9129be967d19f05 (diff) | |
sql: fix updating of :rollback-only
Diffstat (limited to 'src/clojure/contrib/sql')
| -rw-r--r-- | src/clojure/contrib/sql/internal.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/sql/internal.clj b/src/clojure/contrib/sql/internal.clj index 207ccd3b..1c75ee65 100644 --- a/src/clojure/contrib/sql/internal.clj +++ b/src/clojure/contrib/sql/internal.clj @@ -41,9 +41,9 @@ (defn rollback-only "Accessor for the rollback-only flag on the current connection" ([] - @(:rollback-only *db*)) + (deref (:rollback-only *db*))) ([val] - (update-in *db* [:rollback-only] swap! (fn [_] val)))) + (swap! (:rollback-only *db*) (fn [_] val)))) (defn with-connection* "Evaluates func in the context of a new connection to a database then |