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

remove set-hint-transport-fn!, instead use put-hints-fn in view-system

Browse source
This commit is contained in:
Gered 2016-05-19 17:37:09 -04:00
parent 2752c8a92c
commit c77be6aea8
1 changed files with 6 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,12 +1,14 @@
(ns views.honeysql.core
(:require
[views.core :refer [hint refresh-views!]]
[views.core :refer [view-system hint refresh-views!]]
[views.honeysql.util :refer [query-tables]]
[honeysql.core :as hsql]
[clojure.tools.logging :refer [error]]
[clojure.java.jdbc :as j]))
(def send-hints! (atom (fn [hints] (refresh-views! hints))))
(defn send-hints!
[hints]
((:put-hints-fn @view-system) hints))
(defmacro with-view-transaction
"Like with-db-transaction, but sends view hints at end of transaction."
@ -18,7 +20,7 @@
result# (j/with-db-transaction [t# ~db ~@args]
(let [~tvar (assoc ~db :hints hints#)]
~@forms))]
(@send-hints! @hints#)
(send-hints! @hints#)
result#))))
(defn execute-honeysql!
@ -41,12 +43,5 @@
hsql-hint (hint :views/honeysql (query-tables action-map))]
(if-let [hints (:hints db)]
(swap! hints conj hsql-hint)
(@send-hints! [hsql-hint]))
(send-hints! [hsql-hint]))
results))
(defn set-hint-transport-fn!
"The hint transport function should take a collection of hints and
send them to the configured view system. On a non-distribued server this
can be: (fn [hints] (refresh-views! views-config hints))"
[f]
(reset! send-hints! f))