gered/views.honeysql
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

minor cleanup

Browse source
This commit is contained in:
Gered 2016-05-21 16:38:22 -04:00
parent 2f5d432440
commit 481284e127
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/views/honeysql/core.clj
View file

@ -11,7 +11,9 @@
(defmacro with-view-transaction (defmacro with-view-transaction
"Like jdbc's with-db-transaction, but sends view hints at end of transaction." "Like jdbc's with-db-transaction, but sends view hints at end of transaction."
[binding & forms] [binding & forms]
(let [tvar (first binding), db (second binding), args (drop 2 binding)] (let [tvar (first binding)
db (second binding)
args (drop 2 binding)]
`(if (:views-honeysql/hints ~db) ;; check if we are in a nested transaction `(if (:views-honeysql/hints ~db) ;; check if we are in a nested transaction
(let [~tvar ~db] ~@forms) (let [~tvar ~db] ~@forms)
(let [hints# (atom []) (let [hints# (atom [])