diff --git a/src/clj/auto_ap/ssr/transaction/edit.clj b/src/clj/auto_ap/ssr/transaction/edit.clj index fed16332..b2a7a8c3 100644 --- a/src/clj/auto_ap/ssr/transaction/edit.clj +++ b/src/clj/auto_ap/ssr/transaction/edit.clj @@ -62,9 +62,10 @@ (defn require-approval [s] [:and s - [:fn (fn [{:transaction/keys [accounts approval-status]}] - (or (not= approval-status :transaction-approval-status/approved) - (seq accounts)))]]) + [:fn {:error/message "Approved transactions must have accounts assigned."} + (fn [{:transaction/keys [accounts approval-status]}] + (or (not= approval-status :transaction-approval-status/approved) + (seq accounts)))]]) (def edit-form-schema (mc/schema