Merge remote-tracking branch 'origin/master'
This commit is contained in:
commit
e3f5078e9b
7 changed files with 165 additions and 15 deletions
|
|
@ -189,12 +189,15 @@
|
|||
(and (coll? tv) (string? acceptable)) ((set tv) acceptable)
|
||||
(and (coll? tv) (set? acceptable)) (not-empty
|
||||
(intersection (set tv) acceptable))
|
||||
:else
|
||||
(throw (ex-info "Type value or `acceptable` argument not as expected."
|
||||
{:arguments {:x x
|
||||
:acceptable acceptable
|
||||
:severity severity
|
||||
:token token}})))
|
||||
(not
|
||||
(or (string? acceptable)
|
||||
(set? acceptable))) (throw
|
||||
(ex-info
|
||||
"`acceptable` argument not as expected."
|
||||
{:arguments {:x x
|
||||
:acceptable acceptable
|
||||
:severity severity
|
||||
:token token}})))
|
||||
(make-fault-object severity token)))))
|
||||
|
||||
(defn any-or-faults
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue