improves sorting on ledger.

src/clj/auto_ap/datomic/ledger.clj

@@ -3,7 +3,7 @@
    [auto-ap.datomic
     :refer [add-sorter-fields
             apply-pagination
-            apply-sort-3
+            apply-sort-4
             conn
             merge-query
             observable-query
@@ -117,7 +117,7 @@
             true
             (merge-query {:query {:find ['?sort-default '?e]}})))]
     (->> (observable-query query)
-         (apply-sort-3 (update args :sort conj {:sort-key "default-2" :asc true}))
+         (apply-sort-4 (update args :sort conj {:sort-key "default-2" :asc true}))
       (apply-pagination args))))
 
 (defn graphql-results [ids db _]