From a38b8f50dd1c373f047d87dfc9554eb7f27fd528 Mon Sep 17 00:00:00 2001 From: Arne Brasseur Date: Tue, 23 Jul 2024 11:51:25 +0200 Subject: [PATCH] Add FIXME for future reference --- src/co/gaiwan/compass/routes/sessions.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/co/gaiwan/compass/routes/sessions.clj b/src/co/gaiwan/compass/routes/sessions.clj index 96d3f1e..81d6ea5 100644 --- a/src/co/gaiwan/compass/routes/sessions.clj +++ b/src/co/gaiwan/compass/routes/sessions.clj @@ -66,6 +66,8 @@ "" [req] (if-not (:identity req) + ;; FIXME: we should redirect to /sessions/:id/participate after redirect (or + ;; similar, depending on what makes sense with htmx) (util/redirect (oauth/flow-init-url {:redirect-url "/sessions/new"})) (do (let [user-id-str (:identity req) @@ -74,7 +76,7 @@ capacity (:session/capacity session) current-pv (:session/participants session) next-pv (conj current-pv user-id-str)] - ;;TODO + ;;TODO ;; Write some code to handle the case that :db/cas throws exception at race condition (if (< (count current-pv) capacity) @(db/transact [[:db/cas session-eid :session/participants current-pv next-pv]])