function | removed v1.9.542 | added v1.9.183 | Edit |
(abbrev-result x)
Given a check result, returns an abbreviated version suitable for summary use.
(defn abbrev-result
[x]
(if (:failure x)
(-> (dissoc x ::stc/ret)
(update :spec s/describe)
(update :failure unwrap-failure))
(dissoc x :spec ::stc/ret)))