clojure - 如何调试环会话存储？

Question

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

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

Answer 1

您可以指定要使用的 wrap-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)))

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