Streamlines more user interface

src/clj/auto_ap/handler.clj

@@ -234,7 +234,13 @@
           clients (some->> client-ids
                            seq
                            (pull-many (dc/db conn)
-                                      d-clients/full-read))]
+                                      '[:db/id :client/name :client/code :client/locations
+                                        :client/matches  :client/feature-flags
+                                        {:client/bank-accounts [:db/id 
+                                                                {:bank-account/type [:db/ident]} 
+                                                                :bank-account/number
+                                                                :bank-account/name
+                                                                :bank-account/code]}]))]
 
       (mu/with-context {:clients (take 10 (map :client/code clients))}
         (handler (assoc request