diff --git a/src/k16/gx/beta/core.cljc b/src/k16/gx/beta/core.cljc index f60a5031..d86b016c 100644 --- a/src/k16/gx/beta/core.cljc +++ b/src/k16/gx/beta/core.cljc @@ -401,9 +401,10 @@ [processor arg-map] (try [nil (processor arg-map)] - (catch #?(:clj Exception :cljs js/Error) e + (catch #?(:clj Throwable :cljs js/Error) e [(gx.err/gx-err-data "Signal processor error" {:ex-message (impl/error-message e) + :ex (or (ex-data e) e) :args arg-map}) nil]))) diff --git a/src/k16/gx/beta/errors.cljc b/src/k16/gx/beta/errors.cljc index 2a102abc..cd26c82e 100644 --- a/src/k16/gx/beta/errors.cljc +++ b/src/k16/gx/beta/errors.cljc @@ -93,9 +93,8 @@ (defmethod humanize :node-signal [{:keys [internal-data] :as error}] (humanize-error - error (when-let [{:keys [ex-message args dep-node-keys]} internal-data] + error (when-let [{:keys [ex-message dep-node-keys]} internal-data] (tokenize "error = " ex-message - "args = " args "deps-nodes = " dep-node-keys)))) (comment diff --git a/src/k16/gx/beta/system.clj b/src/k16/gx/beta/system.clj index 82d35be7..97169ade 100644 --- a/src/k16/gx/beta/system.clj +++ b/src/k16/gx/beta/system.clj @@ -38,7 +38,7 @@ (when-let [gx-map (get @registry* system-name)] (node-props gx-map :gx/value))) -(defn failures +(defn node-failures [system-name] (when-let [gx-map (get @registry* system-name)] (let [{:keys [components static]} (node-props gx-map :gx/failure) @@ -48,6 +48,11 @@ (seq failed-comps) (assoc :components failed-comps) (seq failed-static) (assoc :static failed-static))))) +(defn failures + [system-name] + (when-let [gx-map (get @registry* system-name)] + (:failures gx-map))) + (defn failures-humanized [system-name] (when-let [gx-map (get @registry* system-name)]