other pages

src/clj/auto_ap/datomic.clj

@@ -579,12 +579,14 @@
 
 (defn add-sorter-fields [q sort-map args]
   (reduce
-   (fn [q {:keys [sort-key]}]
+   (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
                                    sort-key
-                                   (println "Warning, trying to sort by unsupported field" sort-key))}}))
+                                   (println "Warning, trying to sort by unsupported field" sort-key, "sort map" (pr-str sort-map)))}}))
    q
    (:sort args)))