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

Fixes broken with-view-transaction macro

Browse source
This commit is contained in:
Dave Della Costa 2014-07-15 15:19:49 +09:00
parent 4bd320f4d6
commit de0c98c1c1
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/views/db/core.clj
View file

@ -36,19 +36,18 @@
(defmacro with-view-transaction
[config binding & forms]
(let [tvar (first binding)
ns (nth binding 2)]
(let [tvar (first binding), this-ns (nth binding 2)]
`(if (:deltas ~(second binding)) ;; check if we are in a nested transaction
(let [~tvar ~(second binding)] ~@forms)
(let [~tvar ~(second binding), ~this-ns ~(nth binding 3)] ~@forms)
(do-transaction-fn-with-retries
(fn []
(let [base-subscribed-views# (:base-subscribed-views ~config)
deltas# (atom [])
result# (j/with-db-transaction [t# ~(second binding) :isolation :serializable]
(let [~tvar (assoc t# :deltas deltas#)]
~@forms))
~ns ~(nth binding 3)]
(broadcast-deltas base-subscribed-views# @deltas# ~ns)
(let [~tvar (assoc t# :deltas deltas#)
~this-ns ~(nth binding 3)]
~@forms))]
(broadcast-deltas base-subscribed-views# @deltas# ~(nth binding 3))
result#))))))
(defn vexec!