🐛 Fix incorrect handling of session renewal

A regression introduced in the prev auth refactor.
This commit is contained in:
Andrey Antukh
2025-11-18 20:34:54 +01:00
parent 3639ff9dbc
commit ce2d3d1652

View File

@@ -93,15 +93,15 @@
(update-session [_ session] (update-session [_ session]
(let [modified-at (ct/now)] (let [modified-at (ct/now)]
(if (string? (:id session)) (if (string? (:id session))
(let [params (-> session (db/insert! pool :http-session-v2
(assoc :id (uuid/next)) (-> session
(assoc :created-at modified-at) (assoc :id (uuid/next))
(assoc :modified-at modified-at))] (assoc :created-at modified-at)
(db/insert! pool :http-session-v2 params)) (assoc :modified-at modified-at)))
(db/update! pool :http-session-v2 (db/update! pool :http-session-v2
{:modified-at modified-at} {:modified-at modified-at}
{:id (:id session)})))) {:id (:id session)}
{::db/return-keys true}))))
(delete-session [_ id] (delete-session [_ id]
(if (string? id) (if (string? id)