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

rename post-fn to row-fn

Browse source 
i think "row-fn" is a lot more clear as a name, especially since jdbc
also uses the name row-fn to refer to the exact same thing
This commit is contained in:
Gered 2016-05-20 18:19:07 -04:00
parent 37e49d9730
commit 06edd82ff5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/views/honeysql/view.clj
View file

@ -8,12 +8,12 @@
[clojure.java.jdbc :as j] [clojure.java.jdbc :as j]
[clojure.tools.logging :refer [warn]])) [clojure.tools.logging :refer [warn]]))
(defrecord HSQLView [id db query-fn post-fn] (defrecord HSQLView [id db query-fn row-fn]
IView IView
(id [_] id) (id [_] id)
(data [_ namespace parameters] (data [_ namespace parameters]
(let [start (System/currentTimeMillis) (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 row-fn)
time (- (System/currentTimeMillis) start)] time (- (System/currentTimeMillis) start)]
(when (>= time 1000) (warn id "took" time "msecs")) (when (>= time 1000) (warn id "took" time "msecs"))
data)) data))
@ -25,5 +25,5 @@
(defn view (defn view
"Creates a Honey SQL view that uses a jdbc database configuration" "Creates a Honey SQL view that uses a jdbc database configuration"
([id db hsql-fn post-fn] (HSQLView. id db hsql-fn post-fn)) [id db hsql-fn & {:keys [row-fn]}]
([id db hsql-fn] (view id db hsql-fn identity))) (HSQLView. id db hsql-fn (or row-fn identity)))