Should fix most of the authentication issues

src/clj/auto_ap/datomic.clj

@@ -19,7 +19,8 @@
    [mount.core :as mount]
    [clojure.java.io :as io]
    [datomic.db :refer [id-literal]]
-   [datomic.function :refer [construct]])
+   [datomic.function :refer [construct]]
+   [auto-ap.logging :as alog])
   (:import
    (java.util UUID)))
 
@@ -579,8 +580,6 @@
 (defn add-sorter-fields [q sort-map args]
   (reduce
    (fn [q {:keys [sort-key] :as z}]
-     (prn z)
-     (println (class sort-key))
      (merge-query q
                   {:query {:find [(symbol (str "?sort-" sort-key))]
                            :where (sort-map
@@ -896,3 +895,22 @@
 (defn query2 [query]
   (apply dc/q (:query query) (:args query)))
 
+(defn observable-q [query]
+  nil)
+
+(defn observable-query [query]
+  (mu/with-context {:query       (:query query)
+                    :args        (:args query)
+                    :query-stats true
+                    :io-context  ::hello}
+    (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 (:io-stats query-results)
+          :query-stats (:query-stats query-results))
+        (:ret query-results)))))
+