我应该如何 json 在 clojure 中编码异常？

Question

我希望能够 json 对异常对象进行编码。我正在将我的日志推送到 sumologic，并希望能够推送 json 编码的异常，以便我也可以在 sumo 中解析和过滤这些日志。

但是，我无法 json 对异常进行编码并得到此错误：

Cannot JSON encode object of class: class java.lang.Class: class clojure.lang.ExceptionInfo

这是我的 compojure 异常处理程序-api：

(defn exception-handler
  "Handles exceptions."
  [f]

  (fn [^Exception ex data request]
    (log/error (json/generate-string {:request-id log-helper/*request-id*
                                      :error    ex}))

    (f (.getMessage ex))))

Answer 1

应用程序在这方面会有不同的需求，但一种策略是使用 Throwable->map:

(Throwable->map 
  (ex-info 
    "The Holy Grail me be found in the castle of-aaaaaaaaaaaaaaaarrrgh" 
    {:film "Monty Python and the Holy Grail (1975)"} 
    (IllegalStateException. "aaaaargh")))
=> 
{:cause "aaaaargh",
 :via
 [{:type clojure.lang.ExceptionInfo,
   :message
   "The Holy Grail me be found in the castle of-aaaaaaaaaaaaaaaarrrgh",
   :data {:film "Monty Python and the Holy Grail (1975)"},
   :at [clojure.core$ex_info invokeStatic "core.clj" 4739]}
  {:type java.lang.IllegalStateException,
   :message "aaaaargh",
   :at [user$eval13 invokeStatic "NO_SOURCE_FILE" 2]}],
 :trace
 [[user$eval13 invokeStatic "NO_SOURCE_FILE" 2]
  [user$eval13 invoke "NO_SOURCE_FILE" 2]
  [clojure.lang.Compiler eval "Compiler.java" 7062]
  [clojure.lang.Compiler eval "Compiler.java" 7025]
  [clojure.core$eval invokeStatic "core.clj" 3206]
  [clojure.core$eval invoke "core.clj" 3202]
  [clojure.main$repl$read_eval_print__8572$fn__8575
   invoke
   "main.clj"
   243]
  [clojure.main$repl$read_eval_print__8572 invoke "main.clj" 243]
  [clojure.main$repl$fn__8581 invoke "main.clj" 261]
  [clojure.main$repl invokeStatic "main.clj" 261]
  [clojure.main$repl_opt invokeStatic "main.clj" 325]
  [clojure.main$main invokeStatic "main.clj" 424]
  [clojure.main$main doInvoke "main.clj" 387]
  [clojure.lang.RestFn invoke "RestFn.java" 397]
  [clojure.lang.AFn applyToHelper "AFn.java" 152]
  [clojure.lang.RestFn applyTo "RestFn.java" 132]
  [clojure.lang.Var applyTo "Var.java" 702]
  [clojure.main main "main.java" 37]]}

如果您想自定义异常的数据表示，建议您查看 source of Throwable->map 以了解如何获取相关信息。

我应该如何 json 在 clojure 中编码异常？

How should I json encode an exception in clojure?

clojure

sumologic

compojure-api