Fix bug with send-hints and adjust spacing.

This commit is contained in:
Alexander K. Hudek 2015-04-21 18:00:41 -04:00
parent 698a176c4a
commit 1ce529e5bd
2 changed files with 2 additions and 2 deletions

View file

@ -41,7 +41,7 @@
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!

View file

@ -12,7 +12,7 @@
(id [_] id)
(data [_ namespace parameters]
(let [start (System/currentTimeMillis)
data (j/query db (hsql/format (apply query-fn parameters)) :row-fn post-fn)
data (j/query db (hsql/format (apply query-fn parameters)) :row-fn post-fn)
time (- (System/currentTimeMillis) start)]
(when (>= time 1000) (warn id "took" time "msecs"))
data))