Fixing export bugs with bad queries, improving performance.

2020-04-26 08:20:07 -07:00
parent d799fc469d
commit b89b4a86c5
6 changed files with 54 additions and 47 deletions
--- a/src/clj/auto_ap/graphql/invoices.clj
+++ b/src/clj/auto_ap/graphql/invoices.clj
@@ -28,8 +28,8 @@
  (assert-admin (:id context))
  (map
   ->graphql
-   (d-invoices/get-graphql (assoc (<-graphql args)
-                                  :count Integer/MAX_VALUE))))
+   (first (d-invoices/get-graphql (assoc (<-graphql args)
+                                         :count Integer/MAX_VALUE)))))

 (defn reject-invoices [context {:keys [invoices] :as in} value]
  (assert-admin (:id context))