web,user: document why keys are set using a hook

MarcKaufmann · Nov 12, 2024 · bf742bf · bf742bf
1 parent deb7146
commit bf742bf
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/congame-web/components/user.rkt b/congame-web/components/user.rkt
@@ -53,6 +53,8 @@
 
   #:pre-persist-hook
   (lambda (u)
+    ;; We don't use a default here because we want to use the username
+    ;; in the key generation itself to make collisions less likely.
     (define user-with-key
       (cond
         [(and (user-api-key u) (not (sql-null? (user-api-key u)))) u]