✨ Fix minor issues on error reporting.

backend/src/app/http.clj

@@ -77,7 +77,9 @@
         (handler request)
         (catch Throwable e
           (l/with-context (errors/get-error-context request e)
-            (l/error :hint (ex-message e) :cause e)
+            (l/error :hint "unexpected error processing request"
+                     :query-string (:query-string request)
+                     :cause e)
             {:status 500 :body "internal server error"}))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

backend/src/app/http/debug.clj

@@ -150,7 +150,7 @@
             (binding [ppr/*print-right-margin* 300]
               (let [context (dissoc report
                                     :trace :cause :params :data :spec-problems
-                                    :spec-value :error :explain :hint :message)
+                                    :spec-value :error :explain :hint)
                     params  {:context (with-out-str (ppr/pprint context))
                              :hint    (:hint report)
                              :spec-problems (:spec-problems report)

backend/src/app/http/errors.clj

@@ -34,7 +34,6 @@
       :data          (some-> data (dissoc ::s/problems ::s/value :hint))
       :ip-addr       (parse-client-ip request)
       :profile-id    (:profile-id request)}
-
      (let [headers (:headers request)]
        {:user-agent (get headers "user-agent")
         :frontend-version (get headers "x-frontend-version" "unknown")}))))

backend/src/app/http/middleware.clj

@@ -70,6 +70,7 @@
   (let [body   (:body response)
         params (:query-params request)
         opts   {:type (if (contains? params "transit_verbose") :json-verbose :json)}]
+
     (cond
       (:ws response)
       response