clojure - 如何调试环形 session 存储？

Question

我已经定义了一个应用程序，并希望能够打印出 session 存储中包含的所有值，有没有好的方法可以做到这一点？

(def app
  (-> #'handler
      (ring.middleware.stacktrace/wrap-stacktrace)
      (ring.middleware.session/wrap-session)))

Answer 1

您可以指定 wrap-session 使用的 session 存储:

(def all-the-sessions (atom {}))

(def app
  (-> #'handler
    (ring.middleware.stacktrace/wrap-stacktrace)
    (ring.middleware.session/wrap-session {:store (ring.middleware.session.memory/memory-store all-the-sessions)))

现在您可以检查所有 session 原子。