From 9f034c7e7e852fb04011d741a67d9dae2bf7022d Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 2 Jun 2021 11:27:22 +0200
Subject: [PATCH] :sparkles: Disable excesive logging of some modules.

---
 backend/src/app/http/session.clj  | 5 ++++-
 backend/src/app/loggers/audit.clj | 3 ---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/backend/src/app/http/session.clj b/backend/src/app/http/session.clj
index d1b0170bb..acff16136 100644
--- a/backend/src/app/http/session.clj
+++ b/backend/src/app/http/session.clj
@@ -140,10 +140,13 @@
       (when-let [[reason batch] (a/<! input)]
         (let [result (a/<! (update-sessions cfg batch))]
           (mcnt :inc)
-          (if (ex/exception? result)
+          (cond
+            (ex/exception? result)
             (l/error :task "updater"
                      :hint "unexpected error on update sessions"
                      :cause result)
+
+            (= :size reason)
             (l/debug :task "updater"
                      :action "update sessions"
                      :reason (name reason)
diff --git a/backend/src/app/loggers/audit.clj b/backend/src/app/loggers/audit.clj
index 3aca18ed9..0a37e86a2 100644
--- a/backend/src/app/loggers/audit.clj
+++ b/backend/src/app/loggers/audit.clj
@@ -81,9 +81,6 @@
                                   :init []})]
       (a/go-loop []
         (when-let [[type events] (a/<! buffer)]
-          (l/debug :action "persist-events (batch)"
-                   :reason (name type)
-                   :count (count events))
           (let [res (a/<! (persist-events cfg events))]
             (when (ex/exception? res)
               (l/error :hint "error on persiting events"