a lot of progress towards unification.
This commit is contained in:
@@ -14,7 +14,7 @@
|
||||
:in ['$ '?code]
|
||||
:where ['[?id :client/code ?code]]}
|
||||
:args [(d/db (d/connect uri)) code]}))
|
||||
(throw (ex-info "Client is not unique" {:validation-error "Client is not unique"}))))
|
||||
(throw (ex-info "Client is not unique" {:validation-error (str "Client code '" code "' is not unique.")}))))
|
||||
|
||||
(defn edit-client [context {:keys [edit_client new_bank_accounts] :as args} value]
|
||||
(assert-admin (:id context))
|
||||
|
||||
Reference in New Issue
Block a user