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

switch to using put-hints!

Browse source
This commit is contained in:
Gered 2016-05-21 16:29:25 -04:00
parent a475d0e5c3
commit 2506440c6f
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
(ns views.honeysql.core
(:require
[views.core :refer [view-system hint refresh-views!]]
[views.core :refer [view-system hint put-hints!]]
[views.honeysql.util :refer [query-tables]]
[honeysql.core :as hsql]
[clojure.tools.logging :refer [error]]
@ -8,10 +8,6 @@
(def hint-type :sql-table-name)
(defn send-hints!
[hints]
((:put-hints-fn @view-system) hints))
(defmacro with-view-transaction
"Like jdbc's with-db-transaction, but sends view hints at end of transaction."
[binding & forms]
@ -22,7 +18,7 @@
result# (j/with-db-transaction [t# ~db ~@args]
(let [~tvar (assoc ~db :hints hints#)]
~@forms))]
(send-hints! @hints#)
(put-hints! @hints#)
result#))))
(defn- execute-honeysql!
@ -46,7 +42,7 @@
hsql-hint (hint namespace (query-tables action-map) hint-type)]
(if-let [hints (:hints db)]
(swap! hints conj hsql-hint)
(send-hints! [hsql-hint]))
(put-hints! [hsql-hint]))
results))
([db action-map]
(vexec! db nil action-map)))