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

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

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