我有一个关于使用Prismatic/schema验证函数的非常简单的问题。我有一个具有单个键的映射模式，其值是一个函数，该函数将Bar模式作为其单个参数并返回任何内容（用于副作用）：
(require '[schema.core :as s])
(def Bar {:baz s/Int})
(def Action :???)
(def Foo {:action Action})
问题是，我该如何定义Action？我试过这个：
(require '[schema.macros :as sm])
(def Action (sm/=> s/Any Bar))
这看起来很有希望，但我不能让它验证失败：
(s/explain Action)
;=> (=> Any {:baz Int})
;; This should fail
(s/validate Foo {:action :anything-goes})
;=> {:action :anything-goes}
我在这里做错了什么？
我阅读了core_test中的文档和测试，但我不知道该怎么做。