Merge branch 'main' into develop

backend/src/app/config.clj

@@ -52,7 +52,7 @@
    :default-blob-version 3
    :loggers-zmq-uri "tcp://localhost:45556"
 
-   :file-change-snapshot-every 1
+   :file-change-snapshot-every 5
    :file-change-snapshot-timeout "3h"
 
    :public-uri "http://localhost:3449"

backend/src/app/http.clj

@@ -12,6 +12,7 @@
    [app.common.spec :as us]
    [app.http.doc :as doc]
    [app.http.errors :as errors]
+   [app.http.debug :as debug]
    [app.http.middleware :as middleware]
    [app.metrics :as mtx]
    [clojure.spec.alpha :as s]

backend/src/app/http/debug.clj

@@ -112,7 +112,7 @@
 
           (render-template [report]
             (binding [ppr/*print-right-margin* 300]
-              (let [context (dissoc report :trace :cause :params :data :spec-prob :spec-problems)
+              (let [context (dissoc report :trace :cause :params :data :spec-prob :spec-problems :error :explain)
                     params  {:context (with-out-str (ppr/pprint context))
                              :data    (:data report)
                              :trace   (or (:cause report)

backend/src/app/http/errors.clj

@@ -55,7 +55,7 @@
 (defmethod handle-exception :validation
   [err _]
   (let [edata (ex-data err)]
-    {:status 400 :body edata}))
+    {:status 400 :body (dissoc edata ::s/problems)}))
 
 (defmethod handle-exception :assertion
   [error request]