Makes logging unified

src/clj/auto_ap/graphql/checks.clj

@@ -8,6 +8,7 @@
    [auto-ap.datomic.clients :as d-clients]
    [auto-ap.datomic.invoices :as d-invoices]
    [auto-ap.datomic.transactions :as d-transactions]
+   [auto-ap.logging :as alog]
    [auto-ap.datomic.vendors :as d-vendors]
    [auto-ap.graphql.utils
     :refer [->graphql
@@ -29,7 +30,6 @@
    [clojure.java.io :as io]
    [clojure.set :as set]
    [clojure.string :as str]
-   [clojure.tools.logging :as log]
    [com.brunobonacci.mulog :as mu]
    [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
    [config.core :refer [env]]
@@ -430,6 +430,7 @@
                 nil)}))
 
 (defn get-payment-page [context args _]
+  (alog/info ::TEST)
   (let [[payments checks-count] (d-checks/get-graphql  (-> args
                                                            :filters
                                                            (<-graphql)
@@ -570,7 +571,7 @@
                     :ids)
         specific-ids (d-checks/filter-ids (:ids args))
         all-ids      (into (set ids) specific-ids)]
-    (log/info "Voiding " (count all-ids) args)
+    (alog/info ::voiding-payments :count (count all-ids))
 
     (void-payments-internal all-ids (:id context))
     {:message (str "Succesfully voided " (count all-ids))}))