Question

我正在尝试使用korma

创建一个非常简单的API

用户可以像这样查询数据库：

localhost:8080/my_postgres_db/users.json?where[age]=50&limit=1

目前，我在尝试将where子句应用于现有的可组合查询时遇到错误。

clojure.lang.ArityException: Wrong number of args (2) passed to: core$where

相关代码：

(defn- comp-query [q [func arg]]
  (let [sql-fn (ns-resolve 'korma.core (-> func name symbol))]
    (sql-fn q arg)))

(defn compose-query [table col]
  (reduce comp-query (select* table) col))

用法：

 (def clauses {:where {:column1 10} :fields "a,b" :limit 10 :offset 500})
 (-> (compose-query table clauses) select)

除了where子句之外，一切都按预期运行。我可以以我选择的任何方式组合限制，偏移和字段，并获得预期的结果。只有当我的地图中有:where键时才会遇到错误。

我是否尝试过不应该做的事情？这是不好的clojure？任何帮助将不胜感激。

注意：我已阅读此SO question

修改：来自lein repl我可以用相同的方式手动撰写查询并且可以正常使用

(where (select* "my_table") {:a 5})

修改如果我将compose-query功能修改为：

(defn compose-query [table col]
  ; remove where clause to process seperately
  (let [base (reduce comp-query (select* table) (dissoc col :where))]
    (if-let [where-clause (:where col)]
      (-> base (where where-clause))
      base)))

一切都按预期工作。

Answer 1

这里的问题是korma.core/where不是一个功能，需要特别处理。哪里不能作为一个函数实现，仍然可以正确处理(where query (or (= :hits 1) (> :hits 5)))

之类的东西

Answer 2

您可以在使用where*时使用select*功能。只需将您的子句映射为：

(def clauses {:where* {:column1 10} :fields "a,b" :limit 10 :offset 500})

Answer 3

只是预感;扩展一些线程宏会让人很难看出它们是否正确：

core> (macroexpand-1 '(-> (compose-query table clauses) select))
(select (compose-query table clauses))                                                                     
core> (macroexpand-1 '(-> func name symbol))
(clojure.core/-> (clojure.core/-> func name) symbol)                                                       
core> (macroexpand-1 '(clojure.core/-> func name))
(name func)

将func传递给name看起来很可疑。

clojure：用korma动态组合查询

3 个答案: