From 45113c31440b32281a06e47d16b15ad1a179bb76 Mon Sep 17 00:00:00 2001
From: Bryce <bryce@brycecovertoperations.com>
Date: Wed, 6 Sep 2023 06:35:28 -0700
Subject: [PATCH] adds better logging for queries.

---
 src/clj/auto_ap/datomic.clj | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/src/clj/auto_ap/datomic.clj b/src/clj/auto_ap/datomic.clj
index af9da951..bfc086f2 100644
--- a/src/clj/auto_ap/datomic.clj
+++ b/src/clj/auto_ap/datomic.clj
@@ -899,12 +899,16 @@
   nil)
 
 (defn observable-query [query]
-  (let [query-results (dc/query {:query       (:query query)
-                                 :args        (:args query)
-                                 :query-stats true
-                                 :io-context  ::hello})]
-    #_(alog/info ::query-stats
-                 :io-stats (:io-stats query-results)
-                 :query-stats (:query-stats query-results))
-    (:ret query-results)))
+  (mu/with-context {:query       (pr-str (:query query))
+                    :args        (pr-str (:args query))}
+    (mu/trace ::query 
+      []
+      (let [query-results (dc/query {:query       (:query query)
+                                     :args        (:args query)
+                                     :query-stats true
+                                     :io-context  ::hello})]
+        (alog/info ::query-stats
+                   :io-stats (pr-str (:io-stats query-results))
+                   :query-stats (pr-str (:query-stats query-results)))
+        (:ret query-results)))))