Minor tweaks for datomic cloud

src/clj/auto_ap/datomic/sales_orders.clj

@@ -12,6 +12,7 @@
    [clojure.set :as set]
    [clojure.tools.logging :as log]
    [datomic.client.api :as dc]
+   [com.brunobonacci.mulog :as mu]
    ))
 
 (defn <-datomic [result]
@@ -194,9 +195,14 @@
                 true
                 (merge-query {:query {:find ['?date '?e]
                                       :where ['[?e :sales-order/date ?date]]}}))]
-    (log/info "Sales query" query)
-    
-    (cond->> query
+
+    (println query)
+    (mu/log ::query-stats
+            :stats (:query-stats (dc/q (assoc query :query-stats true)))
+            :q (str query))
+
+    (cond->> (assoc query :query-stats true)
+      
       true (dc/q)
       true (apply-sort-3 (assoc args :default-asc? false))
       true (apply-pagination args))))