使用map构建Noir验证规则

Question

我得到了动态生成的表单，所以我尝试这样验证它们：

(defn valid? [media-id data] ;media-id it's just a number, data is the form input
  (let [fields (common/get-fields-to-show media-id)] ; list of strings (the field names)
    (map (fn [f]
           (vali/rule (vali/has-value? ((keyword f) data))
                      [(keyword f) "Write something!!"]))
         fields))
    (not (apply vali/errors? (map keyword fields))))

但它不会起作用。根本没有异常或消息，valid?被评估为true，因此即使所有字段都为空，流程仍会继续，就好像没有任何错误一样。我甚至尝试了(vali/has-value? nil)来强制执行错误，但没有任何改变。

在实验中，我删除了map，获取了两个特定的字段，以这种方式“手动”构建它们的规则：

(defn valid? [media-id data]
  (let [fields (common/get-fields-to-show media-id)
        f1 (first fields)
        f2 (second fields)]
    (vali/rule (vali/has-value? ((keyword f1) data))
               [(keyword f1) "Testing"])
    (vali/rule (vali/has-value? ((keyword f2) data))
               [(keyword f2) "Testing"])
    (not (apply vali/errors? (map keyword fields))))

它对那些幸运的领域非常有效。

我怀疑这与the way noir.validation saves the errors (一个动态声明的东西)有关，但我不确定。

Answer 1

不要在操作序列中使用map。map用于将序列转换为其他东西。您需要使用的是doseq

而不是：

(map (fn [f]
           (vali/rule (vali/has-value? ((keyword f) data))
                      [(keyword f) "Write something!!"]))
         fields))

使用以下命令：

(doseq [f fields]
    (vali/rule (vali/has-value? ((keyword f) data))
                          [(keyword f) "Write something!!"]))

Answer 2

map返回一个惰性的seq。您可以使用doall强制求值：

(doall (map ...