💄 Improve json namespace API (and fix linter).

backend/src/app/loggers/loki.clj

@@ -68,7 +68,7 @@
                                 :timeout 6000
                                 :method :post
                                 :headers {"content-type" "application/json"}
-                                :body (json/encode payload)})]
+                                :body (json/write payload)})]
       (cond
         (= (:status response) 204)
         true

backend/src/app/loggers/mattermost.clj

@@ -31,7 +31,7 @@
           rsp  (http/send! {:uri uri
                             :method :post
                             :headers {"content-type" "application/json"}
-                            :body (json/encode-str {:text text})})]
+                            :body (json/write-str {:text text})})]
       (when (not= (:status rsp) 200)
         (l/error :hint "error on sending data to mattermost"
                  :response (pr-str rsp))))

backend/src/app/loggers/zmq.clj

@@ -15,8 +15,7 @@
    [clojure.core.async :as a]
    [clojure.spec.alpha :as s]
    [cuerdas.core :as str]
-   [integrant.core :as ig]
-   [jsonista.core :as j])
+   [integrant.core :as ig])
   (:import
    org.zeromq.SocketType
    org.zeromq.ZMQ$Socket
@@ -54,10 +53,10 @@
   [_ f]
   (a/close! (::buffer (meta f))))
 
-(def json-mapper
-  (j/object-mapper
-    {:encode-key-fn str/camel
-     :decode-key-fn (comp keyword str/kebab)}))
+(def ^:private json-mapper
+  (json/mapper
+   {:encode-key-fn str/camel
+    :decode-key-fn (comp keyword str/kebab)}))
 
 (defn- start-rcv-loop
   ([] (start-rcv-loop nil))
@@ -70,7 +69,7 @@
      (.. socket (setReceiveTimeOut 5000))
      (loop []
        (let [msg (.recv ^ZMQ$Socket socket)
-             msg (ex/ignoring (j/read-value msg json-mapper))
+             msg (ex/ignoring (json/read msg json-mapper))
              msg (if (nil? msg) :empty msg)]
          (if (a/>!! out msg)
            (recur)
@@ -78,7 +77,6 @@
              (.close ^java.lang.AutoCloseable socket)
              (.close ^java.lang.AutoCloseable zctx))))))))
 
-
 (s/def ::logger-name string?)
 (s/def ::level string?)
 (s/def ::thread string?)