From 848458be7e052a58b7bc677e243ad4fb5e2296f0 Mon Sep 17 00:00:00 2001 From: Bryce Date: Thu, 7 Sep 2023 11:29:39 -0700 Subject: [PATCH] minor bug fix for balance sheet. --- src/clj/auto_ap/graphql/ledger.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj index 5ef63f98..cd6454bf 100644 --- a/src/clj/auto_ap/graphql/ledger.clj +++ b/src/clj/auto_ap/graphql/ledger.clj @@ -163,9 +163,9 @@ (defn get-balance-sheet [context args _] (let [client-id (:client_id args) - client-ids (or (some-> client-id vector) - (filter identity (:client_ids args))) - _ (assert-can-see-client (:id context) client-id) + client-ids (->> (or (some-> client-id vector) + (filter identity (:client_ids args))) + (filter identity)) _ (when (not (seq client-ids)) (throw (ex-info "Please select a client." {:validation-error "Please select a client."}))) _ (doseq [client-id client-ids]