fixed warnings.
This commit is contained in:
@@ -59,7 +59,7 @@
|
||||
([args key]
|
||||
(assert-present args key (name key)))
|
||||
([args key name]
|
||||
(if (not (get args key))
|
||||
(when (not (get args key))
|
||||
(throw (ex-info (str "Missing field '" name "'.")
|
||||
{:validation-error (str "Missing field '" name "'.")})))))
|
||||
|
||||
@@ -87,8 +87,7 @@
|
||||
|
||||
(defn limited-clients [id]
|
||||
(cond
|
||||
(or
|
||||
(= (:user/role id) "none"))
|
||||
(= (:user/role id) "none")
|
||||
[]
|
||||
|
||||
(= (:user/role id) "admin")
|
||||
|
||||
Reference in New Issue
Block a user