Starting to add locked until

2022-03-13 12:04:59 -07:00
parent 96dd99a74c
commit ab4a426369
12 changed files with 207 additions and 117 deletions
--- a/src/clj/auto_ap/graphql/utils.clj
+++ b/src/clj/auto_ap/graphql/utils.clj
@@ -59,6 +59,11 @@
     (throw (ex-info (str "Missing field '" name "'.")
                     {:validation-error (str "Missing field '" name "'.")})))))

+(defn assert-failure
+  ([message]
+   (throw (ex-info message
+                   {:validation-error message}))))
+
 (defn assert-power-user [id]
  (when-not (#{"power-user" "admin"} (:user/role id))
    (log/warn "user " id " not an power-user!")