fix(TRE-1096): in some cases wrong cause is thrown

repl_sessions/config_with_error.edn

@@ -0,0 +1 @@
+{:foo #object["asdfas"]}

repl_sessions/errors.clj

@@ -0,0 +1,19 @@
+(ns errors
+  (:require [k16.gx.beta.system :as gx.system]))
+
+
+(def server
+  {:gx/component
+   {:gx/start {:gx/processor (fn [_] (clojure.edn/read-string
+                                       (slurp "repl_sessions/config_with_error.edn")))}
+    :gx/stop {:gx/processor (fn [_] nil)}}})
+
+(def config
+  {:options {:port 8080
+             :secure? false}
+   :server {:gx/component 'errors/server
+            :gx/props {:foo '(gx/ref :options)}}})
+
+(gx.system/register! ::err {:graph config})
+@(gx.system/signal! ::err :gx/start)
+(println (gx.system/failures-humanized ::err))

src/k16/gx/beta/system.cljc

@@ -14,13 +14,13 @@
 
 (defn throw-root-exception!
   [failures]
-  (let [{:keys [message causes node-key]} (last failures)
+  (let [{:keys [message causes node-key] :as f} (last failures)
         {:keys [exception]} (first causes)]
     (let [msg (str node-key
                    "\n\t" message
                    (when exception
                      (str "\n\t" (ex-message exception))))]
-      (throw (ex-info msg {:failures failures})))))
+      (throw (or exception (ex-info msg {:failures failures}))))))
 
 (defn states
   "Gets list of states of the graph as map.