🐛 Minor fix on error reporting.

backend/src/app/http/errors.clj

@@ -17,13 +17,14 @@
 
 
 (defn get-context-string
-  [err request]
+  [request edata]
-  (str
+  (str "=| uri:    " (pr-str (:uri request)) "\n"
-   "=| uri:          " (pr-str (:uri request)) "\n"
        "=| method: " (pr-str (:request-method request)) "\n"
        "=| params: " (pr-str (:params request)) "\n"
-   (when (ex/ex-info? err)
+
-     (str "=| ex-data:      " (pr-str (ex-data err)) "\n"))
+       (when (map? edata)
+         (str "=| ex-data:      " (pr-str edata) "\n"))
+
        "\n"))
 
 (defmulti handle-exception
@@ -84,9 +85,12 @@
     (log/errorf error
                 (str "Internal Error\n"
                      (get-context-string request edata)))
-
+    (if (nil? edata)
       {:status 500
-     :body (dissoc edata :data)}))
+       :body {:type :server-error
+              :hint (ex-message error)}}
+      {:status 500
+       :body (dissoc edata :data)})))
 
 (defn handle
   [error req]

frontend/src/app/main/repo.cljs

@@ -38,9 +38,11 @@
     (rx/throw {:type :offline})
 
     :else
-    (rx/throw {:type :server-error
+    (rx/throw (merge {:type :server-error
-               :status (:status response)
+                      :status (:status response)}
-               :body (:body response)})))
+                     (:body response)))))
+
+
 
 (defn send-query!
   [id params]