fixed warnings.

This commit is contained in:
2022-07-26 05:56:41 -07:00
parent f6f73a6110
commit 96c80853ef
133 changed files with 670 additions and 1640 deletions

View File

@@ -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")