导致uberimage生成失败的架构

Question

我正在Clojure中开发一个简单的hello world web应用程序。但是，在我将模式库添加到我的项目之后，当我试图使用lein uberjar构建一个uberjar时，我开始出现以下错误。奇怪的是，在使用lein dev启动时，应用程序仍然通过单元测试，并且运行时没有错误。

下面是我使用schema的源文件。为了简洁起见，我省略了其余的源文件，但如果有人想查看其余的文件，请直接询问。

(ns server.api
  (:require [aleph.http :as http]
            [compojure.api.sweet :refer :all]
            [compojure.route :as route]
            [com.stuartsierra.component :as component]
            [ring.middleware.reload :refer [wrap-reload]]
            [ring.util.http-response :refer :all]
            [schema.core :as s]
            [server.logging :refer [wrap-exception-logging wrap-request-logging] :as log]))

(s/defschema Greeting
  {:hello s/Str
   s/Keyword s/Any})

(defn app [db]
  (api
   {:format {:formats [:json-kw]}}
   (middlewares [wrap-request-logging
                 wrap-exception-logging]
                (swagger-ui "/docs" :swagger-docs "/endpoints")
                (swagger-docs "/endpoints"
                 {:info {:title "Hello World Api"}})

                (GET* "/greet" []
                      :summary "Greets someone by name."
                      :description "Greets a person by name, telling them about
                                    the database configuration we're using as well."
                      :return Greeting
                      :query-params [name :- s/Str]
                      (ok {:hello name :with-db db}))

                (route/not-found (not-found {:error "Page not found."})))))

(defrecord Api
  [port env db logger]
  component/Lifecycle

  (start [{:keys [connection] :as component}]
    (if connection
      component
      (do (log/info "Starting Api at port" port "with env" env)
          (let [application (app db)
                handler (if (= env :dev) (wrap-reload application) application)
                conn (http/start-server handler {:port port :join? false})]
            (assoc component :connection conn)))))

  (stop [{:keys [connection] :as component}]
    (if-not connection
      component
      (do (log/info "Stopping Api")
          (.close connection)
          (assoc component :connection nil)))))

(defn new-api [port env]
  (->Api port env nil nil))

我已经尝试过禁用AOT编译，因为这似乎是正常编译和构建uberjar之间的主要区别，但不是骰子。我还在模式源代码中查找了'missing-required-key'键，并确保正确引用了它，这似乎是正确的，因为如果我更改它，模式的测试就会开始失败。

与正常编译相比，创建uberjar时的编译过程还有什么不同？还有什么我可以试试的吗？

Answer 1

根本原因是swagger-docs-route的输入无效（未给出:version，请参见https://github.com/metosin/ring-swagger/blob/master/src/ring/swagger/swagger2_schema.clj#l13)。当它被添加时，它就会像预期的那样工作。

不过，给定的异常确实很糟糕，现在在最新的快照中得到了修复--对于缺失的字段使用默认值，因此不对其进行编译时模式检查。

另外，建议不要对整个应用程序进行AOTing。参见https://github.com/metosin/compojure-api/issues/129