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

为什么我在Luminus(Clojure)中看到参数不匹配错误?,clojure,luminus,hugsql,Clojure,Luminus,Hugsql,编辑(固定) 如果您遵循或修改了其中的某些部分,则可能会遇到类似参数不匹配::name Parameter data not found.,并且无论使用什么参数,该错误都不会消失。您可能会发现,您正试图调用一个不存在的函数,而Conman/HugSQL不知道如何处理它 我的问题的答案如下: 代码的相关部分位于myapp.routes.home/create-user (defn create-user! [{:keys [params]}] (if-let [errors (validat

编辑(固定)

如果您遵循或修改了其中的某些部分,则可能会遇到类似
参数不匹配::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.

原文如下 我正在组装一个非常简单的应用程序,我只是想测试
创建用户表格在。每当我提交表单时,我都会得到一些变化的
参数不匹配::找不到用户名参数数据。
它不是特定于
:username
。无论我发送什么参数,我都会得到
:未找到first_name参数数据。
或类似信息

以下是扩展的参数部分:

我已经在
myapp.routes.home/create-user中完成了
println
堆栈跟踪:

$ 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

在我对db/create user!的调用中!,在myapp.routes.home/create user!中!,我无意中又多了一个论点。当康曼试图用它做点什么的时候,它爆炸了。原始帖子中的代码和解释。
简短回答:我的括号数错了/

我也遇到了这个问题,您希望表达式的返回值与代码块的内容不同。它产生了我称之为“挂起表达式”的问题,并且很容易错误放置或忽略最后一点代码,特别是在大型
do
块中(或类似的块,如
when
when not
等)。即使使用代码格式化程序(如IntelliJ IDEA/Cursive),也不容易验证代码对齐和括号的位置是否正确

为了使这样的代码块更易于阅读,我在中创建了一个超级简单的宏。该实现几乎就是学习宏的“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]))
(定义创建用户![{:keys[params]}]
(如果let[错误(验证用户参数)]
;找到现有用户
(->(响应/找到)/用户)
(关联:闪存(关联参数:错误)))
;需要创建新用户
(t/有结果(响应/发现)/用户)
(db/创建用户!
(助理参数)
:创建于(java.util.Date.)
:更新于(java.util.Date.)
:通过(生成密码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)))))))

带结果的
对于在离开函数之前打印返回值,或者对于
core.async
代码,也非常方便,因为
core.async
通道必须在大型代码块的末尾返回。

您是否有堆栈跟踪?我认为您的迁移尚未完成。我认为您已将用户名添加到用户表中。您可以通过命令行检查数据库吗?问题发生在我将用户名添加到表之前@TakuyaEbata至于通过命令行检查数据库,如果你告诉我你想让我检查什么,我可以这样做。@JochenBedersdorfer堆栈跟踪现在添加到原始帖子中。谢谢
(defmacro with-result
  "Evaluates `result` and returns it; also evaluates `forms` for their side-effects."
  [result & forms]
  `(let [result# ~result]
     (do ~@forms)
     result#))
(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)))))))