✨ Minor improvements on error reporting.

Add missing expound.

backend/resources/templates/error-report.tmpl

@@ -9,6 +9,12 @@ penpot - error report {{id}}
   <div>[<a href="/dbg/error">⮜</a>]</div>
   <div>[<a href="#context">context</a>]</div>
   <div>[<a href="#params">request params</a>]</div>
+  {% if data %}
+  <div>[<a href="#edata">error data</a>]</div>
+  {% endif %}
+  {% if spec-explain %}
+  <div>[<a href="#spec-explain">spec explain</a>]</div>
+  {% endif %}
   {% if spec-problems %}
   <div>[<a href="#spec-problems">spec problems</a>]</div>
   {% endif %}
@@ -16,9 +22,6 @@ penpot - error report {{id}}
   <div>[<a href="#spec-value">spec value</a>]</div>
   {% endif %}
 
-  {% if data %}
-  <div>[<a href="#edata">error data</a>]</div>
-  {% endif %}
   {% if trace %}
   <div>[<a href="#trace">error trace</a>]</div>
   {% endif %}
@@ -55,6 +58,15 @@ penpot - error report {{id}}
     </div>
     {% endif %}
 
+    {% if spec-explain %}
+    <div class="table-row multiline">
+      <div id="spec-explain" class="table-key">SPEC EXPLAIN: </div>
+      <div class="table-val">
+        <pre>{{spec-explain}}</pre>
+      </div>
+    </div>
+    {% endif %}
+
     {% if spec-problems %}
     <div class="table-row multiline">
       <div id="spec-problems" class="table-key">SPEC PROBLEMS: </div>

backend/src/app/http/debug.clj

@@ -150,14 +150,14 @@
             (binding [ppr/*print-right-margin* 300]
               (let [context (dissoc report
                                     :trace :cause :params :data :spec-problems
-                                    :spec-value :error :explain :hint)
+                                    :spec-explain :spec-value :error :explain :hint)
                     params  {:context (with-out-str (ppr/pprint context))
                              :hint    (:hint report)
+                             :spec-explain  (:spec-explain report)
                              :spec-problems (:spec-problems report)
                              :spec-value    (:spec-value report)
                              :data          (:data report)
-                             :trace         (or (:cause report)
-                                                (:trace report)
+                             :trace         (or (:trace report)
                                                 (some-> report :error :trace))
                              :params        (:params report)}]
                 (-> (io/resource "templates/error-report.tmpl")

backend/src/app/http/errors.clj

@@ -12,6 +12,7 @@
    [app.common.uuid :as uuid]
    [clojure.pprint]
    [clojure.spec.alpha :as s]
+   [expound.alpha :as expound]
    [cuerdas.core :as str]))
 
 (defn- parse-client-ip
@@ -31,6 +32,8 @@
       :params        (:params request)
       :spec-problems (some-> data ::s/problems)
       :spec-value    (some-> data ::s/value)
+      :spec-explain  (with-out-str
+                       (expound/printer data))
       :data          (some-> data (dissoc ::s/problems ::s/value :hint))
       :ip-addr       (parse-client-ip request)
       :profile-id    (:profile-id request)}

common/src/app/common/logging.cljc

@@ -180,7 +180,7 @@
               `(->> (ThreadContext/getImmutableContext)
                     (send-off logging-agent
                               (fn [_# cdata#]
-                                (with-context (into {:cause ~cause} cdata#)
+                                (with-context (into {} cdata#)
                                   (->> (or ~raw (build-map-message ~props))
                                        (write-log! ~logger-sym ~level-sym ~cause))))))