clojure - 为什么我在 Luminus (Clojure) 中看到参数不匹配错误？

Question

编辑（固定）...

如果您正在关注Luminus 留言簿教程或修改其中的部分内容，您可能会遇到类似的错误Parameter Mismatch: :name parameter data not found.，并且无论您使用什么参数，它都可能不会消失。您可能会发现您正在尝试调用一个不存在的函数，而 Conman/HugSQL 不知道如何处理它。

我的问题的答案在以下部分：

代码的相关部分在myapp.routes.home/create-user!

(defn create-user! [{:keys [params]}]
  (if-let [errors (validate-user params)]
    (-> (response/found "/users")
        (assoc :flash (assoc params :errors errors)))
    (do
      (db/create-user!
       (assoc params
              :created_at (java.util.Date.)
              :updated_at (java.util.Date.)
              :pass (generate-password 8)))
      (response/found "/users"))))

下面的代码不正确：

:pass (generate-password 8)) ; <-- 2 parentheses at the end of line.
       (response/found "/users"))))) ; <-- 5 parentheses at the end of line.

我通过更改它来修复它，如下所示：

:pass (generate-password 8))) ; <-- 3 parentheses at the end of line.
       (response/found "/users")))) ; <-- 4 parentheses at the end of line.

所以事实证明我向 db/create-user 传递了错误数量的参数！似乎康曼不知道如何调用查询。

此外，我以草率的方式修复了迁移中的一些问题 - 通过编辑已经发生的迁移。我注意到 Conman 似乎没有注意到您是否正在更改旧的迁移和 queries.sql 文件。如果您发现 query.sql 没有反映您的数据库 api（因此当您将 id 字段设置为自动增量时，您仍然会收到有关 ID 参数的消息，那么您需要让 Conman 重新生成您的数据库 API。

这可以在 REPL 中完成，如下所示：

user> (ns myapp.db.core)
nil
myapp.db.core> (conman/bind-connection *db* "sql/queries.sql")

下面是原帖

非常简单的应用程序我或多或少地基于Luminus 留言簿教程，我只是想在http://localhost:3000/userscreate-user!测试表单。每当我提交表单时，我都会得到一些 It's not specific to 的变体。无论我发送什么参数，我都会得到或类似的东西。Parameter Mismatch: :username parameter data not found.:username:first_name parameter data not found.

这是扩展的参数部分：

我已经完成了println，myapp.routes.home/create-user!我知道参数似乎都在那里。我不确定如何进一步追踪它。我会很感激任何关于调试的建议，如果有人看到我做错了什么，那将非常有帮助。

堆栈跟踪：

$ lein run
2020-03-22 16:34:47,244 [main] DEBUG org.jboss.logging - Logging Provider: org.jboss.logging.Slf4jLoggerProvider 
2020-03-22 16:34:47,897 [main] INFO  myapp.env - 
-=[myapp started successfully using the development profile]=- 
2020-03-22 16:34:48,471 [main] INFO  luminus.http-server - starting HTTP server on port 3000 
2020-03-22 16:34:48,496 [main] DEBUG io.undertow - starting undertow server io.undertow.Undertow@591ea3da 
2020-03-22 16:34:48,503 [main] INFO  org.xnio - XNIO version 3.3.6.Final 
WARNING: An illegal reflective access operation has occurred
WARNING: Illegal reflective access by org.xnio.nio.NioXnio$2 (file:/Users/mattlally/.m2/repository/org/jboss/xnio/xnio-nio/3.3.6.Final/xnio-nio-3.3.6.Final.jar) to constructor sun.nio.ch.KQueueSelectorProvider()
WARNING: Please consider reporting this to the maintainers of org.xnio.nio.NioXnio$2
WARNING: Use --illegal-access=warn to enable warnings of further illegal reflective access operations
WARNING: All illegal access operations will be denied in a future release
2020-03-22 16:34:48,616 [main] DEBUG io.undertow - Configuring listener with protocol HTTP for interface 0.0.0.0 and port 3000 
2020-03-22 16:34:48,659 [main] INFO  org.projectodd.wunderboss.web.Web - Registered web context / 
2020-03-22 16:34:48,659 [main] INFO  myapp.nrepl - starting nREPL server on port 7000 
2020-03-22 16:34:48,676 [main] INFO  myapp.core - #'myapp.db.core/*db* started 
2020-03-22 16:34:48,677 [main] INFO  myapp.core - #'myapp.handler/init-app started 
2020-03-22 16:34:48,677 [main] INFO  myapp.core - #'myapp.handler/app-routes started 
2020-03-22 16:34:48,677 [main] INFO  myapp.core - #'myapp.core/http-server started 
2020-03-22 16:34:48,677 [main] INFO  myapp.core - #'myapp.core/repl-server started 
java.lang.Exception: Exception in :create-user!
    at conman.core$try_query$fn__33540$fn__33541.invoke(core.clj:32)
    at clojure.lang.AFn.applyToHelper(AFn.java:156)
    at clojure.lang.RestFn.applyTo(RestFn.java:132)
    at clojure.core$apply.invokeStatic(core.clj:669)
    at clojure.core$apply.invoke(core.clj:660)
    at myapp.db.core$eval35973$f__33568__auto____36000.doInvoke(core.clj:13)
    at clojure.lang.RestFn.invoke(RestFn.java:425)
    at myapp.routes.home$create_user_BANG_.invokeStatic(home.clj:46)
    at myapp.routes.home$create_user_BANG_.invoke(home.clj:41)
    at muuntaja.middleware$wrap_params$fn__28296.invoke(middleware.clj:52)
    at muuntaja.middleware$wrap_format$fn__28300.invoke(middleware.clj:73)
    at myapp.middleware$wrap_formats$fn__31491.invoke(middleware.clj:42)
    at ring.middleware.anti_forgery$wrap_anti_forgery$fn__27132.invoke(anti_forgery.clj:94)
    at reitit.ring$ring_handler$fn__38011.invoke(ring.cljc:292)
    at clojure.lang.AFn.applyToHelper(AFn.java:154)
    at clojure.lang.AFn.applyTo(AFn.java:144)
    at clojure.lang.AFunction$1.doInvoke(AFunction.java:31)
    at clojure.lang.RestFn.invoke(RestFn.java:408)
    at clojure.lang.Var.invoke(Var.java:384)
    at ring.middleware.reload$wrap_reload$fn__24791.invoke(reload.clj:39)
    at selmer.middleware$wrap_error_page$fn__24806.invoke(middleware.clj:18)
    at prone.middleware$wrap_exceptions$fn__25047.invoke(middleware.clj:159)
    at ring.middleware.flash$wrap_flash$fn__28337.invoke(flash.clj:39)
    at immutant.web.internal.undertow$wrap_undertow_session$fn__39192.invoke(undertow.clj:72)
    at ring.middleware.keyword_params$wrap_keyword_params$fn__31059.invoke(keyword_params.clj:53)
    at ring.middleware.nested_params$wrap_nested_params$fn__31117.invoke(nested_params.clj:89)
    at ring.middleware.multipart_params$wrap_multipart_params$fn__31249.invoke(multipart_params.clj:173)
    at ring.middleware.params$wrap_params$fn__31273.invoke(params.clj:67)
    at ring.middleware.cookies$wrap_cookies$fn__30892.invoke(cookies.clj:214)
    at ring.middleware.absolute_redirects$wrap_absolute_redirects$fn__31411.invoke(absolute_redirects.clj:47)
    at ring.middleware.resource$wrap_resource_prefer_resources$fn__31309.invoke(resource.clj:25)
    at ring.middleware.content_type$wrap_content_type$fn__31359.invoke(content_type.clj:34)
    at ring.middleware.default_charset$wrap_default_charset$fn__31383.invoke(default_charset.clj:31)
    at ring.middleware.not_modified$wrap_not_modified$fn__19539.invoke(not_modified.clj:61)
    at ring.middleware.x_headers$wrap_x_header$fn__30560.invoke(x_headers.clj:22)
    at ring.middleware.x_headers$wrap_x_header$fn__30560.invoke(x_headers.clj:22)
    at ring.middleware.x_headers$wrap_x_header$fn__30560.invoke(x_headers.clj:22)
    at myapp.middleware$wrap_internal_error$fn__31485.invoke(middleware.clj:21)
    at immutant.web.internal.undertow$create_http_handler$reify__39303.handleRequest(undertow.clj:239)
    at org.projectodd.wunderboss.web.undertow.async.websocket.UndertowWebsocket$2.handleRequest(UndertowWebsocket.java:109)
    at io.undertow.server.session.SessionAttachmentHandler.handleRequest(SessionAttachmentHandler.java:68)
    at io.undertow.server.Connectors.executeRootHandler(Connectors.java:211)
    at io.undertow.server.HttpServerExchange$1.run(HttpServerExchange.java:809)
    at java.base/java.util.concurrent.ThreadPoolExecutor.runWorker(ThreadPoolExecutor.java:1128)
    at java.base/java.util.concurrent.ThreadPoolExecutor$Worker.run(ThreadPoolExecutor.java:628)
    at java.base/java.lang.Thread.run(Thread.java:835)
Caused by: clojure.lang.ExceptionInfo: Parameter Mismatch: :username parameter data not found. {}
    at hugsql.core$validate_parameters_BANG_.invokeStatic(core.clj:83)
    at hugsql.core$validate_parameters_BANG_.invoke(core.clj:69)
    at hugsql.core$prepare_sql.invokeStatic(core.clj:185)
    at hugsql.core$prepare_sql.invoke(core.clj:173)
    at hugsql.core$db_fn_STAR_$y__33452.doInvoke(core.clj:457)
    at clojure.lang.RestFn.invoke(RestFn.java:445)
    at hugsql.core$db_fn_STAR_$y__33452.invoke(core.clj:448)
    at conman.core$try_query$fn__33540$fn__33541.invoke(core.clj:30)
    ... 45 more

score 1 · Accepted Answer

在我对 db/create-user! 的调用中，在 myapp.routes.home/create-user! 中，我无意中传递了一个额外的参数。当康曼试图用它做点什么时，这件事就爆发了。原始帖子中的代码和解释。简短的回答：我错误地计算了我的括号。：/

score 1 · Accepted Answer

我也遇到过这个问题，您希望表达式的返回值与代码块的内容不同。它产生了我所说的“悬挂表达式”问题，并且很容易放错地方或忽略最后一点代码，尤其是在大块中do（或类似的，例如when，when-not等）。即使使用代码格式化程序（例如 IntelliJ IDEA/Cursive 的代码格式化程序），也不容易验证代码对齐和括号的位置是否正确。

为了使这样的代码块更易于阅读，我with-result在Tupelo 库中创建了一个超级简单的宏。实现几乎就是学习宏的“Hello World”：

(defmacro with-result
  "Evaluates `result` and returns it; also evaluates `forms` for their side-effects."
  [result & forms]
  `(let [result# ~result]
     (do ~@forms)
     result#))

使用with-result宏，您的代码将变为以下内容：


(ns tst.demo.core
  (:require [tupelo.core :as t]))

(defn create-user! [{:keys [params]}]
  (if-let [errors (validate-user params)]
    ; found existing user
    (-> (response/found "/users")
      (assoc :flash (assoc params :errors errors)))
    ; need to create new user
    (t/with-result (response/found "/users")
      (db/create-user!
        (assoc params
          :created_at (java.util.Date.)
          :updated_at (java.util.Date.)
          :pass (generate-password 8))))))

你可以看到我添加了简单的注释来帮助启动每个分支if并总结它的作用。

(response/found ...)您还可以选择通过在一个地方调用来简化一点：

(defn create-user! [{:keys [params]}]
  (let [errors   (validate-user params)
        response (response/found "/users")]
    (if errors
      (assoc response :flash (assoc params :errors errors))
      (t/with-result response
        (db/create-user!
          (assoc params
            :created_at (java.util.Date.)
            :updated_at (java.util.Date.)
            :pass (generate-password 8)))))))

这with-result对于在离开函数之前打印返回值或对于必须在大代码块末尾返回通道的core.async代码也非常方便。core.async

clojure - 为什么我在 Luminus (Clojure) 中看到参数不匹配错误？

下面是原帖

2 回答 2

Related

Reference