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 (ns views.honeysql.core
(:require (:require
[views.core :refer [hint refresh-views!]] [views.core :refer [view-system hint refresh-views!]]
[views.honeysql.util :refer [query-tables]] [views.honeysql.util :refer [query-tables]]
[honeysql.core :as hsql] [honeysql.core :as hsql]
[clojure.tools.logging :refer [error]] [clojure.tools.logging :refer [error]]
[clojure.java.jdbc :as j])) [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 (defmacro with-view-transaction
"Like with-db-transaction, but sends view hints at end of 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] result# (j/with-db-transaction [t# ~db ~@args]
(let [~tvar (assoc ~db :hints hints#)] (let [~tvar (assoc ~db :hints hints#)]
~@forms))] ~@forms))]
(@send-hints! @hints#) (send-hints! @hints#)
result#)))) result#))))
(defn execute-honeysql! (defn execute-honeysql!
@ -41,12 +43,5 @@
hsql-hint (hint :views/honeysql (query-tables action-map))] hsql-hint (hint :views/honeysql (query-tables action-map))]
(if-let [hints (:hints db)] (if-let [hints (:hints db)]
(swap! hints conj hsql-hint) (swap! hints conj hsql-hint)
(@send-hints! [hsql-hint])) (send-hints! [hsql-hint]))
results)) 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))