notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

adds better logging for queries.

Browse Source
This commit is contained in:
Bryce
2023-09-06 06:35:28 -07:00
parent 5952c58f5a
commit 45113c3144
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/datomic.clj
View File

@@ -899,12 +899,16 @@
nil) nil)
(defn observable-query [query] (defn observable-query [query]
(mu/with-context {:query (pr-str (:query query))
:args (pr-str (:args query))}
(mu/trace ::query
[]
(let [query-results (dc/query {:query (:query query) (let [query-results (dc/query {:query (:query query)
:args (:args query) :args (:args query)
:query-stats true :query-stats true
:io-context ::hello})] :io-context ::hello})]
#_(alog/info ::query-stats (alog/info ::query-stats
:io-stats (:io-stats query-results) :io-stats (pr-str (:io-stats query-results))
:query-stats (:query-stats query-results)) :query-stats (pr-str (:query-stats query-results)))
(:ret query-results))) (:ret query-results)))))