Clojure 中从记录模式到映射模式

Question

当我的记录具有如下定义的模式时：

(schema.core/defrecord Account [id :- schema/Uuid
                                short-id :- schema/Str
                                name :- schema/Str
                                created-at :- schema/Inst])

如何提取架构以应用于包含这些值的哈希映射？

原因是 HTTP 服务接收地图并自动将架构应用到它们，如果我只使用 Account，它会失败，因为地图不是 Account 类型。

我试图从解释中提取，如：

(schema.core/explain Account)

但我得到的并不是真正的架构：

{:id Uuid,
 :short-id Str,
 :name Str,
 :created-at Inst}

这些值是符号而不是类，所以，如果你尝试使用它：

(schema.core/validate (last (schema.core/explain server.models.account.Account)) {})

你得到这个错误：

IllegalArgumentException No implementation of method: :spec of protocol: #'schema.core/Schema found for class: clojure.lang.Symbol  clojure.core/-cache-protocol-fn (core_deftype.clj:568)

Answer 1

您可以使用内置的explain 函数：

(last (schema.core/explain Account))
{:id Uuid, :short-id Str, :name Str, :created-at Inst}

或者更棘手的spec

(-> (schema.core/spec Account) 
    :options
    first 
    :schema 
    last 
    last)
{:id java.util.UUID, :short-id java.lang.String, :name java.lang.String, :created-at java.util.Date}