Source
ring/middleware/session/cookie.clj:80
top
(defn cookie-store
"Creates an encrypted cookie storage engine."
([]
(cookie-store {}))
([options]
(let [secret-key (get-secret-key options)]
{:read (fn [session-data]
(if session-data
(or (unseal secret-key session-data) {})
{}))
:write (fn [_ session]
(seal secret-key session))
:delete (fn [_]
(seal secret-key {}))})))
Comments top
No comments for cookie-store. Log in to add a comment.