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]